Help for this page

Select Code to Download


  1. or download this
    [0] Perl> $#a = 7e6;;
[0] Perl> $a[ $_ ] = ['','','',''] for 0 .. 7e6 -1;;
[0] Perl>
  2. or download this
    [0] Perl> $#a = 7e6;;
[0] Perl> $data = 'X' x 700; $a[ $_ ] = $data for 0 .. 7e6 -1;;
  3. or download this
    print join ' ', @dict[ unpack 'V*', $records[ $hit ] ];