giovedì 23 dicembre 2010

perl powerful renamer

L'altro giorno dovevo rinominare tutti i file che rispondevano ad un certo nome aggiungendo loro un certo suffisso.

Ci sono un sacco di utilities che lo fanno egregiamente ma mi sono divertito a farlo in maniera semplice e geekosa con il buon vecchio perl.

Ecco come ho fatto


perl -e '`mv $_ $_-sample` while(<cdr-parser-rufus*.ini>)'

in questo modo ho appeso '-sample' ad ogni file cercato.

Nessun commento: