Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Rename some jpegs, make thumbnails

by merlyn (Sage)
on Jan 22, 2001 at 06:12 UTC ( #53402=CUFP: print w/ replies, xml ) Need Help??

Wander through a directory, looking for jpegs, first renaming anything with a space in the name to that name with underscores and jpeg. Find the un-thumbnailed ones, create a thumbnail suffixed with ".thumb.jpg". Uses ImageMagick.
#!/usr/bin/perl use strict; use Image::Magick; my $im = Image::Magick->new; umask 0022; my @names = @ARGV ? @ARGV : grep { -f and -B } <*>; for (@names) { if (/ /) { my $old = $_; tr, ,_,s; $_ .= ".jpg" unless /\.jpg$/; ! -e and rename $old, $_ or next; warn "renaming $old to $_\n"; } next if /\.thumb\.jpg$/; my $thumb = "$_.thumb.jpg"; next if -e $thumb; undef @$im; my $ret; $ret = $im->Read($_) and warn($ret), next; $ret = $im->Scale(geometry => '100x100') and warn($ret), next; $ret = $im->Write($thumb) and warn($ret), next; warn "thumbnail made for $_\n"; }

Comment on Rename some jpegs, make thumbnails
Download Code

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://53402]
Approved by root
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2015-11-29 09:04 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (750 votes), past polls