Hi all,
as it always begins this is my first mail on this list and the question is
very trivial one.
I am trying to read a UTF-8 file that contains Japanaese and English
characters I want to write first charater of each line in an output file.
I am using following script. And I am using perl 5.6.1? It does not seem to
work. What I am missing?
#!/usr/local/bin/perl
use utf8;
open(LOGFILE,"test.txt") or die "Could not open test.txt";
open(OUTFILE,"out.txt") or die "Could not open out.txt";
for $line (<LOGFILE>){
$tt1 = utf8->substr($line,0,1);
print OUTFILE $tt1;
print OUTFILE "\n";
}
close LOGFILE;
close OUTFILE;
I tried following syntax to open file how ever it seems that it is not
supported in Perl 5.6.1
open(LOGFILE,"<:utf8","test.txt") or die "Could not open test.txt";
open(OUTFILE,">:utf8","out.txt") or die "Could not open out.txt";
Thanks
Anil