Re: Resizing images (Gimp???)

[Erich Schroeder <erich@museum.state.il.us>]

Here is a perl script I use. I often have to deal with images created on
other OSs, so it moves everything to lower case, gets rid of spaces in
filenames using a separate shell script I'm not including, and then uses 
the "convert" command (part of imagagemagick) to create thumbnails and 
what we call "publication size" images to be imbedded within web pages:

#!/usr/bin/perl -w

use File::Basename;


@upcasefiles = <*.JPG>;
foreach $upcasefile (@upcasefiles) {
  ($name,$dir,$ext) = fileparse($upcasefile,'\..*');
  print "...Renaming $upcasefile to $name.jpg\n";
  rename($upcasefile, "$name.jpg");
}

print "Replacing spaces in file names with \"_\" \n";
$cmd = "/local/WWW/RiverWeb/bin/stripspace\n";
`$cmd`;

print "...unlinking old thumbnails\n";
@tfiles = <*-t.jpg>;
unlink(@tfiles);
print "...unlinking old publishfiles\n";
@pfiles = <*-p.jpg>;
unlink(@pfiles);

print "...creating new thumbnail files\n";
@files = <./*.jpg>;

foreach $file ( @files ) {
#  print "$file\n";
  ($name,$dir,$ext) = fileparse($file,'\..*');
#  print "name = $name, dir = $dir, ext = $ext \n";

  $cmd = "convert $name$ext -geometry 140x95 $name-t.jpg";

  print $cmd, "\n";
  `$cmd`;
}

print "...creating new publication files\n";
foreach $file ( @files ) {
#  print "$file\n";
  ($name,$dir,$ext) = fileparse($file,'\..*');
#  print "name = $name, dir = $dir, ext = $ext \n";

  $cmd = "convert $name$ext -geometry 300x250 $name-p.jpg";

  print $cmd, "\n";
  `$cmd`;
}



-- 
---------------------------------------------------------------------
Erich Schroeder                    Phone: (217)785-0033
Curator, Information Technologies  FAX:   (217)785-2857
Illinois State Museum GIS Lab      email:erich(at)illinois.state.museum
                 http://illinois.state.museum/
---------------------------------------------------------------------


-
To unsubscribe, send email to majordomo@silug.org with
"unsubscribe silug-discuss" in the body.