Here's a fragment that might help, that might get
you started at least:
$fileheader_printed = 0;
sub hash_figs
{
$figfile = $_[0];
open (fp, $figfile) || die ("Can't open $figfile.\nExiting");
$nodecount=0;
$numpages=0;
$ignore_text = 0; #Used to exclude page footer
while (<fp>)
{
if (/^%!PS-Adobe/) #Start of Page Marker
{
if (++$numpages == 2) #Header is first element in list
{
if (!$fileheader_printed)
{
print @linelist; #print header
$fileheader_printed = 1;
}
}
else
{
if ("insert reg expr here")
{
print @linelist; #Print Figure
}
if ($nodecount++%80==0)
{
print STDERR "\n ";
}
}
$currfig="junk";
@linelist = ();
}
elsif(m/^%%Title:/)
{
$currfig = uc $1;
}
elsif (/\[100 0 0 \-100 0 0\]\/Times\-Roman MF/) #Ignore Page Foot
+er
{
$ignore_text = 1;
}
elsif (/Preamble/) #Ignore Page Footer
{
$ignore_text = 0;
}
if (not $ignore_text)
{
push (@linelist, $_);
}
}
}
Desert coder |