1#!/usr/bin/perl 2 3use POSIX qw(strftime); 4 5if($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 = <>; 17for($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} 37