Tento scriptik som si pred istym casom pisal. Funguje dobre, premenuvava len fajly ktore treba premenovat, cize fajly ktore nemaju diakritiku preskakuje, na konci vypise statistiku kolko fajlov/dirov premenoval a kolko preskocil. Pouziva externu binarku ktoru si vygooglite rychlo. Ak ste moc lenivi a mate toho vela mozete ten script volat rekurzivne zo shellu ak mate vela adresarov a podadresarov.
Nebite ma :) viem ze sa to dalo napisat aj lepsie :)

#!/usr/bin/perl

$dir = `pwd`;
@files = `ls -1`;
chomp(@files);
$skip = 0;
$rename = 0;

foreach $file (@files) {
$filen = `echo "$file" | recode -f l2..flat`;
chomp($filen);
if ($filen eq $file) {
$skip = $skip + 1;
}
else {
print "rename: $file -> $filen\n";
system("mv \"$file\" \"$filen\"");
$rename = $rename + 1;
}
}

print "Statistics:\n";
print "Skipped: $skip\nRenamed: $rename\n\n";