Help for this page

Select Code to Download


  1. or download this
    use constant NCOLS => 3954;
    
    ...
    my @matrix = map[ unpack 'C*', $_ ], unpack '(a' . NCOLS . ')*', $buff
    +er;
    ...