Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
      ok($buf eq $expected, "print $test_name $enc");
   }
}
  2. or download this
    >c:\progs\perl588\bin\perl test.pl
1..28
...
ok 27 - print long 10
ok 28 - print long 11
# Looks like you failed 6 tests of 28.
  3. or download this
    >c:\progs\perl5100\bin\perl test.pl
1..28
...
ok 26 - print long 01
ok 27 - print long 10
ok 28 - print long 11