Subversion リポジトリの参照
Contents of /trunk/installer/2sjis.pl
Parent Directory
| Revision Log
Revision 3221 -
( show annotations)
( download)
( as text)
Tue Mar 24 09:37:20 2009 UTC
(15 years, 2 months ago)
by maya
File MIME type: text/x-perl
File size: 443 byte(s)
CVS から SVN へ移行: trunk に集約
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; |
|