root/pr.pl

/*   */

#!/usr/bin/perl

use POSIX qw(strftime);

if($ARGV[0] eq "-h"){
        shift @ARGV;
        $h = $ARGV[0];
        shift @ARGV;
}else{
        $h = $ARGV[0];
}

$page = 0;
$now = strftime "%b %e %H:%M %Y", localtime;

@lines = <>;
for($i=0; $i<@lines; $i+=50){
        print "\n\n";
        ++$page;
        print "$now  $h  Page $page\n";
        print "\n\n";
        for($j=$i; $j<@lines && $j<$i +50; $j++){
                $lines[$j] =~ s!//DOC.*!!;
                print $lines[$j];
        }
        for(; $j<$i+50; $j++){
                print "\n";
        }
        $sheet = "";
        if($lines[$i] =~ /^([0-9][0-9])[0-9][0-9] /){
                $sheet = "Sheet $1";
        }
        print "\n\n";
        print "$sheet\n";
        print "\n\n";
}

/*   */