in reply to Renaming non-ascii files
First of all, your code doesn't even compile. There are two errors:
davidj
needs to be changed toelsif($myfile =~ m/[\? ]+(\([0-9]+\))?\.(\w+)\i)
andelsif($myfile =~ m/[\? ]+(\([0-9]+\))?\.(\w+)/i)
needs to be changed to$newname = join "." $temp, $ext;
At that point it will compile. Please post the code you are actually using.$newname = join ".", $temp, $ext;
davidj
|
---|
Replies are listed 'Best First'. | |
---|---|
A reply falls below the community's threshold of quality. You may see it by logging in. |
In Section
Seekers of Perl Wisdom