Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

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"; }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://53402]
Approved by root
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (6)
As of 2018-03-17 07:20 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (223 votes). Check out past polls.