#!/usr/bin/perl # opendir (DIR, "."); @files = readdir DIR; open (HTML, ">index.html"); print HTML "\n"; print HTML "\n"; foreach my $file (sort @files) { next unless ($file =~ /\.gif$/); my $newfile = $file; $newfile =~ s/\s$\d$//g; if ($file ne $newfile) { rename $file, $newfile; $file = $newfile; } print HTML ""; foreach $col ("#FFFFFF", "#000000", "#C0C0C0", "#FFFF00", "#FF0000") { print HTML ""; } print HTML "\n"; } print HTML "

$file

\n";