Script Perl per ridenominare molti file ad una volta

Poco fa mi è capitato di trovare una cartella di immagini, oltre 300 tutte con estensione .J, allora essendo molte ho pensato di scrivere uno script perl così in quattro righe potevo ridenominare tutti i file..
Ecco a voi il codice, davvero semplice ma funzionale e sopratutto efficace 😀

#! /usr/bin/perl
@val=qx{ls ./};
foreach (@val){
	if (/(.*)\.J/){
		qx{mv "$1.J" "$1.JPG"}; 
	}
}
Se ti è stato utile il mio articolo, spendi un secondo del tuo tempo e dammi un +1, Google ed io ne saremmo felici 🙂 Grazie mille 🙂

Leave a Reply

Your email address will not be published.

8 + nineteen =

This site uses Akismet to reduce spam. Learn how your comment data is processed.