Japanese encoding in Perl

Alligator Wine

Hi, it's my first time dealing with a foreign character set in Perl and I'm having a few problems.

For the moment I just want to read in a file which is encoded in Unicode and output each line to another file (later I want to deal with regexs, but I wanted to start off simple). When I open the new output file it doesn't match the original. Could someone please tell me where I'm going wrong? Cheers + here's the code I've written so far.

#!/usr/bin/perl

$inFile=$ARGV[0];
$outFile=$ARGV[1];

open (IN, $inFile) || die "cannot open file: $inFile\n";
chomp(@lines = <IN>);
close (IN);

open (OUT, "$outFile") || die "cannot write to file: $outFile\n";
for($i = 0; $i <= $#lines; $i++) {
print OUT "$lines[$i]\n";
}

Zaltais

Untested, but should work...

#!/usr/bin/perl

use warnings;
use strict;

my $inFile=$ARGV[0];
my $outFile=$ARGV[1];

open(IN, $inFile) || die "cannot open file: $inFile : $!";
my @lines = <IN>;
close(IN);

open(OUT, $outFile) || die "cannot write to file: $outFile : $!";

foreach my $line (@lines){
    print OUT $line;
}

close(OUT);

Any questions relating to any of the above, just ask...