Help for this page

Select Code to Download


  1. or download this
    my $newblob = join '', map substr( pack( 'N', $_ ), 1 ), $pixellist =~
+ /\d+/g;
  2. or download this
    ( my $newblob = pack 'N*', $pixellist =~ /\d+/g ) =~ s/.(...)/$1/sg;