Tuesday, July 13, 2010

move extension on files

perl -e 'foreach my $r (glob("*.jad")) { $x=$r;$r=~ s/jad/java/;system("mv $x $r") unless(-f $r)}'

No comments:

Post a Comment