Portál AbcLinuxu, 2. listopadu 2025 14:40
#!/usr/bin/perl
use locale;
if (@ARGV < 4) {
print "Použití num < prefix > < postfix > < od > < soubory >... \n";
exit;
}
$prefix = shift(@ARGV);
$postfix = shift(@ARGV);
$from = shift(@ARGV);
foreach $file (@ARGV) {
$new = sprintf("%s%04d%s", $prefix, $from, $postfix);
$from++;
if (!-e $new) {
rename $file, $new;
}
}
find -name '*.JPG' -print0 | xargs -0 rename .JPG .jpgPřípadně jednoduše (pro omezenou úroveň podadresářů) např.:
rename .JPG .jpg *.JPG */*.JPG */*/*.JPGPozn.: Nefunguje na Debianu, kde příkaz rename dělá něco úplně jiného.
Tiskni
Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.