Re^2: Rename All Files In a Directory

Well thanks for the suggestions.I made some upgrades to the code but ultimately wanted to get the job done:so I forged forward at the cmd line and solved the problem with:

perl -e 'opendir(DH,"/home/yehuda/img/jpg");while(defined ($file=readd
+ir(DH))){$file=~m|(.*)\.(.*)\.(.*)|g; rename ($file, $1.$3)}'
[download]

Comment on Re^2: Rename All Files In a Directory Download Code