Dotaz: Perl-převod na velké písmena

[Petr70]

Zdravím všechny, potřeboval bych samozřejmě pomoc. Mám větší množství záloh v adresáři a podadresářích typu zaloha-r01.zip, zaloha-r02.zip atd, potřeboval bych kvůli čitelnosti přejmenovat tyto zálohy hromadně na velké písmena, takto ZALOHA-R01.zip, ZALOHA-R02.zip . Bohužel se mně to hromadně nedaří. :(

Tento příkaz přejmenuje správně pouze v aktuálním adresáři

perl -e 's/\.[^\.]*$/rename $_, uc($`) . $&/e for @ARGV' *.zip

Ve scriptu bash už nefunguje.

find /mnt/sdb/dilna -maxdepth 5   -name *r*.zip  | while read smycka 
do
find /mnt/sdb/dilna -maxdepth 5   -name *r*.zip  | head -n 1  | perl -e 's/\.[^\.]*$/rename $_, uc($`) . $&/e for @ARGV' *.zip
done
echo "konec velkých písmen"

Toto přejmenuje vše na velké písmena, včetně koncovky .zip což nechci.

perl -nle 'rename $_, uc'

ale ve scriptu mně to stejně nejde, jenom v terminálu viz

find  /mnt/sdb/dilna  -maxdepth 5   -name *r*.zip  | head -n 1  | perl -nle 'rename $_, uc'

Doufám že jsem to napsal správně a moc děkuji odborníkům za pomoc, bohužel perl neznám a bash málo.

Odpovědi

[sad]

Shell ani Perl moc neumím, nicméně v Ruby to přejmenování jde udělat docela snadno, ale pro jistotu si udělej zálohu.

require 'find'

mydir = "/home/petr70/zalohazalohy"

Find.find(mydir) do |path|
  unless File.directory? path
    dir, f = File.split(path)    
    fa = f.split(".")	
    File.rename(path, dir+"/"+fa[0].upcase+"."+fa[1])
  end
end 

[uf]

Možná třeba tak:

find * -type f | rename 's/([^\/]*)((z|Z)(i|I)(p|P))$/\U\1\L\2/'

Ale radši si to někde nejdřív vyzkoušej a nezapomeň si před tím udělat zálohu.

[uf]

Čitelnější ...:

find * -type f | rename 's/([^\/]*)((z|Z)(i|I)(p|P))$/\U\1\L\2/'

[uf]

Jo a - pusť to v adresáři, kde ti začínají ty soubory, nebo doplň cestu do findu místo "*"!

[Petr70]

Děkuji.