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