Select Code to Download

# feeder.pl
$s = join '', map chr, 0..255;
print $s;

# tester.pl
$s = join '', map chr, 0..255;
1 while $read = read(STDIN, $in, 512, $ofs+=$read);
print($in eq $s ? "pass\n" : "fail\n");

$ perl feeder.pl | perl tester.pl
pass
$ perl feeder.pl | perl -C6 -pe1 | perl -C1 -pe1 | perl tester.pl
pass

$ perl -C6 -e 'print "\x{2660}"' | perl -C1 -pe1
Wide character in print, <> line 1.
[junk][junk][junk]

$ perl -C6 -e 'print "\x{2660}"' | perl -C1 -MEncode -pe '$_=encode("i
+so-latin-1",$_);'
?