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