<text>

#!/usr/bin/perl use strict; my $listfile="README"; my $gfxhtml=< <file>

GROK my $gfxpage=< <text>

GROK print "

){ my ($n,$text)= $i =~ m!(\d\d)\s+(.*)!; next FILE unless ($n&&$text); print "

$n $text
\n "; my @files=`ls -1 $n*.jpg ||echo todo.jpg `; chop(@files); foreach my $file(@files){ my $r=$gfxhtml; $r=~ s!!$file!gcs; print "$r\n"; unless ($file =~ m!todo!gic){ my $next=$count + 1; open (SHOW,">Show/$count.html")||die "catn write $!"; my $s=$gfxpage; $s=~ s!!$file!gcs; $s=~ s!!$next!gcs; $s=~ s!!$text!gcs; $s=~ s!!$count!gcs; print SHOW $s; close SHOW; $count++; } } print "
"; } print "

\n"; print <

GROK