Portál AbcLinuxu, 9. května 2025 22:11
#!/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.