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.

Questa voce รจ stata pubblicata in oneliner, perl. Contrassegna il permalink.