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 🙂
Precedente PERICOLO per WordPress!! Successivo Funzione di login in PL/SQL

Lascia un commento

nove − tre =

*

Questo sito usa Akismet per ridurre lo spam. Scopri come i tuoi dati vengono elaborati.