franciscoalecrim.com

Hi all,
Yesterday I received many files from a friend with many space in the name(like Windows stupid users). I hate it and I found a great script that correct it. It’s published in http://www.pigstye.net/articles/2006/09/18/perl-script-to-remove-spaces-from-file-dir-names

script:

#!/usr/bin/perl -w# nospace /this/dir /that/dir /those/too

use File::Find;use strict;die "usage: nospace dir[s]\n" unless @ARGV;

my %ext;

find(\&remspaces, @ARGV);

sub remspaces {return if ($_ eq '.');return if ($_ eq '..');(my $new = $_) =~ tr/a-zA-Z0-9_.-/_/c;my $duplicate = ($new ne $_ and -e $new);my $try = $new;

$ext{"$File::Find::dir/$try"}++ if $duplicate;

while (my $count = $ext{"$File::Find::dir/$new"}++) {(my $with_num = $new) =~ s/(?=\.|$)/_$count/;$new = $with_num, last if not -e $with_num;}

$ext{"$File::Find::dir/$try"}-- if $duplicate;

rename $_ => $newor warn "can't rename $_ to $new: $!";}

That’s it!!!!