RE: Reading UTF-8 file

------_=_NextPart_001_01C3215D.A86D8210
Content-Type: text/plain;
	charset="ISO-8859-1"

oops I goofed up while writing mail the correct script is following !! Not
utf8-> before susstr

#!/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 = substr($line,0,1);
    print OUTFILE $tt1;
    print OUTFILE "\n";
}
close LOGFILE;
close OUTFILE; 

-----Original Message-----
From: [email protected]
[mailto:[email protected]]
Sent: Friday, May 23, 2003 2:58 PM
To: [email protected]
Subject: Reading UTF-8 file 


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

------_=_NextPart_001_01C3215D.A86D8210--