Ted Zlatanov wrote:
perl -MFile::Find -e'find(sub { return unless m/\s/; $new = $_; $new =~s/\s+/-/g;
rename $_ => $new }, @ARGV)' DIR1 DIR2 ...
I'm waiting for the python version;)
Patrick _______________________________________________ Help-make mailing list [email protected] http://lists.gnu.org/mailman/listinfo/help-make
