[Rio-pm] renomeie arquivos usando ER's de Perl!

[breno]

Quem nunca precisou renomear um monte de arquivos de uma vez só?
Ferramentas como o "rename", disponível em algumas distros de Linux,
fazem esse papel de maneira um tanto confusa, mas que resolve o
trabalho. Ora, isso pede por Perl!

Para os que não conhecem, Johan Vromans desenvolveu um programa
chamado "pmv" (Perl-mv?) que renomeia arquivos de forma eficiente
através de nossas já conhecidas expressões regulares. O arquivo pode
ser baixado em:

http://search.cpan.org/dist/pmv/script/pmv

ou direto do CPAN! Vejam alguns exemplos de funcionamento:

mudando extensões:
$ pmv -v 's/bak$/pl/' *.bak (o -v é "verbose" e exibe as modificações,
como abaixo)
    foo.bak => foo.pl
    bar.bak => bar.pl

botando nomes de arquivos em "caixa baixa":
$ pmv -v lc *JPG
    DSC03345.JPG => dsc03345.jpg
    DSC03346.JPG => dsc03346.jpg
    DSC03347.JPG => dsc03347.jpg

Ainda há várias opções extras, como apenas mostrar modificações sem
realizá-las, criar links (simbólicos ou não) ao invés de renomear os
arquivos, entre outras!

Uma mão na roda para administradores e usuários - como sempre ;-)

[]s

-b