# # Get thumbnail file names. # opendir(DIR,"."); @thumbnails = grep(/_qs\.jpg$/i, readdir(DIR)); close(DIR); # # Set your homepage. # $baseurl = "http://homepage1.nifty.com/kazuf/"; $mainpage = "renewal.html"; $imagedir = "images/2009/01/"; $description = "マイ・ホームページ"; # # Media RSS output # print <<"END_OF_PRINT"; $title $baseurl$mainpage $description END_OF_PRINT foreach $thumbnail (sort @thumbnails){ ($imagefile = $thumbnail) =~ s/_qs\.jpg/\.jpg/i; print "\n"; print "\t$imagefile\n"; print "\t$baseurl$imagedir$imagefile\n"; print "\t$baseurl$imagedir$imagefile\n"; print "\t\n"; print "\t\n"; print "\n"; } print "\n"; print "\n";