#!/usr/bin/perl use Image::Magick; opendir(DIR,"./"); @pics = grep { /.JPG$/ && -f "$_" } readdir(DIR); closedir(DIR); while(<@pics>) { $_ =~ s/(.*)\..../$1/; print "Processing $_"; $page .= "

"; $page .= "S\n"; $page .= "M\n"; $page .= "L

\n"; push(@list,$_); # Read in the image $model = Image::Magick->new(); $x = $model->ReadImage("$_.JPG"); warn "$x" if "$x"; foreach $y (10,25,50) { # Scale the image $example = $model->Clone(); $example->Label('Scale'); $example->Scale("$y%"); # Write out the image $example->Write("$_-$y.jpg"); if($y eq "50") { print ".\n" } else { print "." } } $example = $model->Clone(); $example->Label('Scale'); $example->Scale('120'); $example->Write("$_-0.jpg"); } open(OUTPUT,">index.html"); print OUTPUT ""; print OUTPUT $page; print OUTPUT ""; close(OUTPUT); while($elem = shift(@list)){ $next = $list[0]; foreach(10,25,50) { open(SUB,">$elem-$_.html"); print SUB "

"; if($last) { print SUB "<<" } if($next) { print SUB ">>" } print SUB ""; } $last = $elem; }