perl-i18n

Reading UTF-8 file

2003-05-23 12:00:17
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

<Prev in Thread] Current Thread [Next in Thread>