pr.pl

   1 #!/usr/bin/perl
   2
   3 use POSIX qw(strftime);
   4
   5 if($ARGV[0] eq "-h"){
   6         shift @ARGV;
   7         $h = $ARGV[0];
   8         shift @ARGV;
   9 }else{
  10         $h = $ARGV[0];
  11 }
  12
  13 $page = 0;
  14 $now = strftime "%b %e %H:%M %Y", localtime;
  15
  16 @lines = <>;
  17 for($i=0; $i<@lines; $i+=50){
  18         print "\n\n";
  19         ++$page;
  20         print "$now  $h  Page $page\n";
  21         print "\n\n";
  22         for($j=$i; $j<@lines && $j<$i +50; $j++){
  23                 $lines[$j] =~ s!//DOC.*!!;
  24                 print $lines[$j];
  25         }
  26         for(; $j<$i+50; $j++){
  27                 print "\n";
  28         }
  29         $sheet = "";
  30         if($lines[$i] =~ /^([0-9][0-9])[0-9][0-9] /){
  31                 $sheet = "Sheet $1";
  32         }
  33         print "\n\n";
  34         print "$sheet\n";
  35         print "\n\n";
  36 }