Jeff's Page of pictures

#!/bin/perl5 #! print "\$ARGV[1]=$ARGV[1]\n"; if ( $ARGV[1] eq "html" || $ARGV[1] eq "Html" || $ARGV[1] eq "HTML") { system("ls *.htm *.HTM *.html *.HTML *.Htm *.Html >htmls.txt"); open (IN, " open (OUT, ">htmls.html") || die ("unable to open htmls.html for writing"); } else { system("ls *.gif *.GIF *.jpg *.JPG *.jpeg *.JPEG *.Gif *.Jpeg *.jpg >pictures.txt"); open (IN, " open (OUT, ">pictures.html") || die ("unable to open pictures.html for writing"); } print OUT< Jeff's picture page

`Jeff's Page of pictures`







EOH

;

while (  ) {

  chop;

  print OUT ''.$_.'
'."\n";

}



close ( IN );

print OUT<


This page was generated with the following HTML code: $0

EOF ; open (IN, "<$0") || die ("unable to open pictures.txt for reading"); while ( ) { chop; print OUT $_." \n"; } print OUT ""; close IN; close ( OUT );