Browse Subversion Repository
Contents of /installer/branches/avendor/2sjis.pl
Parent Directory
| Revision Log
Revision 1184 -
( show annotations)
( download)
( as text)
Mon Apr 14 14:34:23 2008 UTC
(16 years, 1 month ago)
by maya
File MIME type: text/x-perl
File size: 443 byte(s)
teraterm/installer より移動
1 |
#!/usr/bin/perl -w |
2 |
|
3 |
require 5.8.0; |
4 |
use strict; |
5 |
use Encode; |
6 |
use utf8; |
7 |
use Getopt::Long; |
8 |
|
9 |
my($in, $out, $coding, $lf, $result); |
10 |
$result = GetOptions('in=s' => \$in, |
11 |
'out=s' => \$out, |
12 |
'coding=s' => \$coding, |
13 |
'lf=s' => \$lf); |
14 |
|
15 |
open (IN, "<:$lf:encoding($coding)", $in); |
16 |
open (OUT, '>:crlf:encoding(shiftjis)', $out); |
17 |
while (<IN>) { |
18 |
print OUT $_; |
19 |
} |
20 |
close OUT; |
21 |
close IN; |
| |