Photo Index

#!/usr/bin/perl #This was the first perl program I ever wrote, which is why it's not very good. #Nevertheless, I'm proud of it, given my inexperience. #Ryan Giordano 2-16-04 use strict; my $Dir; my $Filename; my @Filenames; my %Pictures; my %Descriptions; my $FileString; my $Desc; my $Thumbname; my $i; opendir(Dir,'.') || die "Cannot open directory: $!\n"; while ($Filename=readdir(Dir)) { push(@Filenames,$Filename); } closedir Dir; @Filenames = sort @Filenames; #print "$#Filenames\n"; print "Making thumbnails..."; foreach $Filename (@Filenames) { if ( ($Filename =~ /.+\.jpg$/i) && ($Filename !~ /THUMB/) ) { $Thumbname = (substr $Filename,0,-4) . "_THUMB.jpg"; #print "$Filename - $Thumbname\n"; $Pictures{$Filename} = $Thumbname; system "convert $Filename -scale 100x100 $Thumbname"; } } print "done.\n"; #split will help you read the csv file open DESCRIPTIONS, '< descriptions.csv' || die "Cannot open descriptions.csv for reading: $!\n"; while ($FileString = ) { #print $FileString; ($Filename, $Desc) = split ',', $FileString; $_ = $Desc; s/^\s*//; $Desc = $_; $Descriptions{$Filename} = $Desc; #print $Filename, " ", $Desc, "\n"; } close DESCRIPTIONS; foreach $Filename (@Filenames) { unless ($Descriptions{$Filename}) { $Descriptions{$Filename} = $Filename; } } open WEBPAGE, '> photoindex.html' || die "Cannot open webpage file: $!\n"; print WEBPAGE "\n\n"; print WEBPAGE "\n\n"; print WEBPAGE "\n"; print WEBPAGE "\n"; print WEBPAGE "Photo Index\n"; print WEBPAGE "\n"; print WEBPAGE "\n--description of the photo album--\n\n"; print WEBPAGE "

\n"; $i=0; print WEBPAGE "\n"; foreach $Filename (keys (%Pictures)) { if ($i%4==0) { print WEBPAGE "" }; print WEBPAGE "\n"; if ($i%4==3) { print WEBPAGE "" }; $i = $i+1; } print WEBPAGE "

\n"; print WEBPAGE " $\"",$

\n"; print WEBPAGE $Descriptions{$Filename}, "

\n "; print WEBPAGE "

\n"; print WEBPAGE "

\n"; #print WEBPAGE "\n\n

\n\n"; print WEBPAGE ""; close WEBPAGE; print "Done!\n";