Help for this page

Select Code to Download

Select or download this

    open INFILE,  "<:utf8" , $infilename || die ("can't open $infilena
+me") ;
 
    while  (my $line = decode_utf8(<INFILE>)) {
    }

Select or download this

    open INFILE,  "<:utf8" , $infilename || die ("can't open $infilena
+me") ;
    @lines = <INFILE>;