[ale] perl / filesystem script

[jfondow]

And the winner is Stefan,  thanx for all the help folks.  Once again the
user community is the far superior tech support.  Here is the script
that worked:

perl -MFile::Find -e 'sub w { ($n=$_)=~tr/ /_/; rename $_, $n };
finddepth(\&w, ".")'



jfondow wrote:
> 
> I found a perl script a couple of weeks ago and now I can't find it
> again (I thought I bookmarked it).  What I am trying to do is rename a
> directory and files from "a file name with spaces" to
> "a_file_name_with_spaces".  Some of the folks at work are using pc's to
> edit their web pages and the pc allows spaces, but when trying to do
> backups and file manipulation, it bombs on the linux box of course.  Any
> ideas would be greatly appreciated.  TIA