Help for this page

Select Code to Download


  1. or download this
    print "before shiftjis\n";
open( my $fh, "<", "107.shiftjis.txt") or die $!;
print join('', <$fh>);
close $fh;
  2. or download this
    use warnings NONFATAL =>'utf8'; #disable 

...
close $fh;

"use warnings FATAL =>'utf8'"; #enable