Bart Wrote:
> That would explain why I have a few tracks with accented characters
> showing up, I have just checked and they do not have the accents in the
> filename, thanks Ben.
> However I am not about to find and rename all the files with accented
> characters!I just did. Here is a complete Perl program to do it:
use File::Find;
use File::Copy;
find sub {($newname = $_) =~ s/\P{IsASCII}//g &&
move $_, $newname
}, "your_directory_here";
If you want lovingly to choose the names yourself, or just to see
what's going to happen first, try this instead:
use File::Find;
find sub {($newname = $_) =~ s/\P{IsASCII}//g &&
print "$_ would become $newname\n"
}, "your_directory_here";
--
tom permutt
------------------------------------------------------------------------
tom permutt's Profile: http://forums.slimdevices.com/member.php?userid=1893
View this thread: http://forums.slimdevices.com/showthread.php?t=22069
_______________________________________________
Discuss mailing list
[email protected]
http://lists.slimdevices.com/lists/listinfo/discuss
