http://qs321.pair.com?node_id=169321

tired of getting whitespaces in filenames (mp3, pr0n, bosses' latest decree)?
( @ARGV ) || die "Usage : $0 /some/directory /another/directory\n"; foreach $directory ( @ARGV ) { if ( -d $directory ) { chdir("$directory"); convert_dir(); chdir("-"); } } sub convert_dir { chomp( my $dir = `pwd`); opendir(DIR,"$dir"); while ( my $file = readdir DIR ) { my $oldname = "$file"; $file =~ s/\s+/_/g; # print "Renaming $oldname to $file\n"; rename("$oldname","$file"); } close(DIR); return 1; } ___ | | | x | <---bang head here if this |___| frustrates you