pagesal125.pl

########################
# PageSAL125.pl
########################
#
# This script reads the output files from pdftotext (0x0C breaks pages)
# and ouputs page number, top line, and info within the page.
# The script will also output the tab delimited file based on the
# data.
#

# Top line example:
# 26 PUBLIC LAWS-CH. 42-MAR. 30, 1949 [63 STAT. 
# (The text files use left and right folios - even page numbers on left).

$infile=shift;
$outfile1=shift;
$outfile2=shift;

if (!$outfile2 || !(-e $infile))
	{
	print "Syntax: PageSal.pl infile outfile\n";
	print "This script reads the text files from pdftotext and outputs\n";
	print "two files. (1) page number, top line, contents and \n";
	print "(2) the tab-delimited control file needed to break SAL files\n";
	exit;
	}

open(IN,$infile);
$outfile1=">".$outfile1;
open(OUT1,$outfile1);
$outfile2=">".$outfile2;
open(OUT2,$outfile2);

$page=1;
$plnum=1;
$linenum=0;
$v=125;
$lastplnum=0;
$statpage=3;

print OUT2 "<PDFSAL>\n";
print OUT2 "<page number=\"1\">\n";

print OUT1 "vol=125\n";
print OUT1 "statpage1=-2\n";
while (<IN>)
	{
	if ($linenum <5)
		{
	# 	print OUT2 $_;
		}
	if (m|\x0C|)
		{
		$page++;
		if ($plnum == ($lastplnum))
			{
			print OUT1 "publaw-".$plnum."\t".$statpage."\n";
			$lastplnum=$plnum+1;
			}

		print OUT2 "</page>\n";
		print OUT2 "<page number=\"".$page."\">\n";
		$linenum=0;	
		}
	else
		{
		$linenum++;
		}		

	if (m|$v STAT. (\d+)|)
		{
		$statpage=$1;
		print OUT2 " <statpage>".$statpage."</statpage>\n";
		}

	if (m|PUBLIC LAW (\d+)–(\d+)|)		
		{
		$plyear=$1;
		$plnum=$2;
		print OUT2 " <publaw>".$plyear."-".$plnum."</publaw>\n";
		if ($plnum == ($lastplnum+1))
			{
			print OUT1 "publaw-".$plnum."\t".$statpage."\n";
			$lastplnum=$plnum+1;
			}
		}
		
		
	# if (m|PUBLIC LAW (\d+)–(\d+)—([^ ]+) ([^ ]+) ([^ ]+)|)
		

	NextLine:
	}

	
close(IN);
close(OUT1);
print OUT2 "</page>\n";
print OUT2 "</PDFSAL>";	
close(OUT2);