Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use utf8;
...
print $fh1 $u8data; # <--THIS LINE GENERATES WARNING
print $fh2 $u8data;

Select or download this

[jeremy@serpent pm-test]$ perl wide-char.pl
Wide character in print at wide-char.pl line 27.
...
0000000 61 65 69 0a c3 a1 c3 a9 c3 ad 0a d9 81 0a
0000016
[jeremy@serpent pm-test]$