Reading an Unicode File

[donno20]

Hi monks,
I read an unicode file and just print out its content. but the while loop just stop somewhere in the middle of the file. If I changed the file to ASCII, then the while loop can loop throughly. here is my simple code:

open RS, "< $rs_file";
while (my $line = <RS>){
print "$. $line";
}
close RS;

Any input would be greatly appreciated.

[jmcnamara]

If you are using Windows you should binmode the filehandle, this will avoid interpretation of ^Z (ASCII 26) as the end of file character:

    open RS, $rs_file or die "Error message here: $!\n";

    binmode RS;

    while (<RS>) {
        print $., "\t", $_;
    }

--
John.

[John M. Dlugosz]

What do you mean by "A(n) Unicode file"? UTF-8, UTF-16, UCS-2, or what? The <RS> construct, without further telling it otherwise, will work for UTF-8 but not the others. In UTF-8 you don't need "binmode" either.

If the file is using some other encoding, you need to set the input record separator to the proper byte sequence, and also use binmode.

In Perl 5.8, there is built-in support for reading files in other encodings. You can use the extended open syntax to specify, and all should work fine without further intervention.

—John

[donno20]

Thanks monks, I made it !!
^_^