tom permutt Wrote:
> What I meant was, I couldn't tell exactly what bunch of bits is
> representing the
> in your filename.
>
> So, I'm flying blind here. You might try this, which will not do
> anything destructive:
>
> use File::Find;
> use Encode;
> find sub {($newname = decode("iso-8859-1", $_)) =~
> s/\P{IsASCII}//g &&
> print "$_ would become $newname\n"
> }, "your_directory_here";
>
>
> This will just print out a list of proposed renamings. Let me know
> what happens. If it's to your liking, you can make the corresponding
> change to the other script and actually rename the files.
Thanks on the new script I had the error
"Can't locate Encode.pm in @INC (@INC contains: C:/Perl/lib
C:/Perl/site/lib .) a
t test22.pl line 2.
BEGIN failed--compilation aborted at test22.pl line 2."
However, I tried using another PC with your original scipt and it
worked perfectly, I used it to rename all my music file names and it
seemed to have worked flawlessly.
Thanks, you have been more than helpful and saved me a lot of grief.
Not sure why both scripts worked on one computer but not another. But
this stuff is way over my head ;)
--
agentsmith
------------------------------------------------------------------------
agentsmith's Profile: http://forums.slimdevices.com/member.php?userid=1838
View this thread: http://forums.slimdevices.com/showthread.php?t=22689
_______________________________________________
Discuss mailing list
[email protected]
http://lists.slimdevices.com/lists/listinfo/discuss
