Pieter Verberne([EMAIL PROTECTED]) on 2007.06.27 14:37:07 +0000:
> Hi there,
>
> How do I rename multiple files at once? I want to rename a list of
> files like:
>
> man mv(1) says nothing about REGEX. (although I don't know REGEX
> (yet))
I like this one, from the Perl Cookbook, Chap. 9.9.
#!/usr/bin/perl -w
# rename - Larry's filename fixer
$op = shift or die "Usage: rename expr [files]\n";
chomp(@ARGV = <STDIN>) unless @ARGV;
for (@ARGV) {
$was = $_;
eval $op;
die $@ if $@;
rename($was,$_) unless $was eq $_;
}
To do your rename:
file.jpg
file1.jpg
file_2.jpg
to:
file_thumb.jpg
file1_thumb.jpg
file_2_thumb.jpg
you could then do
rename 's/\.jpg/_thumb.jpg/' file.jpg file1.jpg file_2.jpg
The first argument of this rename command can be any valid perl expression
:-)
/B.
--
Sebastian Benoit <[EMAIL PROTECTED]>
Gegen Krisen kann keiner was!
Unverr|ckbar |ber uns; Stehen die Gesetze der Wirtschaft, unbekannte;
Wiederkehren in furchtbaren Zyklen; Katastrophen der Natur.
-- Berthold Brecht, Hl. Johanna der Schlachthvfe
[demime 1.01d removed an attachment of type application/pgp-signature]
