Help for this page

Select Code to Download


  1. or download this
    my $packed = join '', unpack '(a3x)*', pack 'l*', @sint24s;
  2. or download this
    >perl -wMstrict -le
"use Test::More 'no_plan';
...
ok 4999 - pass 200: len 24
ok 5000 - pass 200: len 25
1..5000