Help for this page

Select Code to Download


  1. or download this
    % perl -MO=Deparse movies > movies1
% vi movies1
...
\$o+=\$A+8}];

s[((?{$a.=$+})\s?(\S*)\s?)*][$a =~ s/Z/ /g; $a; ]see;
  2. or download this
    s[((?{$a.=$+})\s?(\S*)\s?)*][$a =~ s/Z/ /g; $a; ]see;
  3. or download this
    % perl -MO=Deparse movies | sed s/see/se\;print/ | perl | sed s/\;/\;\
+\n/g

...
$o=4;
for(1..$B){print"00db".pack"LLL",16,$o,$A;
$o+=$A+8}