#!/usr/bin/perl use strict; my $listfile="README"; my $gfxhtml=<<file>
GROK my $gfxpage=< <text>
<file> <count>
GROK print "
    \n"; open (FILE,$listfile)||die "geen $listfile"; my $count="1"; FILE: while (my $i=){ 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