Help for this page

Select Code to Download

Select or download this

while( @fhs ) {
    printf "\r%d\t", scalar( @fhs );
...
    57 unless( length( $bufs[ $r ] ) );
    my $nextRec = substr( $bufs[ $r ], -16, 16, '' );
}

Select or download this

$ perl -MO=Concise,-exec buk.pl
1  <0> enter 
...
           goto 10
13 <2> leaveloop vKP/2
14 <@> leave[1 ref] vKP/REFC