Reading UTF-8 file
[email protected] Fri, 23 May 2003 14:58:25 -0400
| Newsgroups | perl.i18n |
|---|---|
| Message-ID | <0F2A05A54977F248982FF81EA9578CDB01AD6E3C@asc-msg-02.ascentialsoftware.com> |
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