Голь на выдумки

[gianthare]

Мой mp3-player не поддерживает русский, да и вообще, говорят, они к этому не склонны. Т.е. вместо кириллицы виден мусор. Пару раз я вручную переименовывал песни, пару раз оставлял мусор, наконец, сегодня меня достало. За десять минут я наваял скриптец на Перле (так долго, потому что я сначала пару букв пропустил), который пересобачивает имена всех файлов в текущей директории из CP1251 в латиницу (там есть один длинный tr и несколько s/// для тех букв, которые заменяются на несколько) и, ключевой момент, засунул его в player, чтобы не искать каждый раз и чтобы путь был покороче. Работает как часы.

Comments

[gianthare.livejournal.com]

Так плеер его не запускает, он там только хранится.
Я поставил ActivePerl, вполне нормально.

Вот скрипт:

while($f=<*.mp3>) {
$new = $f;
$new =~ tr/абвгдезийклмнопрстуфхцъыьэАБВГДЕЗИЙКЛМНОПРСТУФхЦЭ/abvgdezijklmnoprstufxc'yjeABVGDEZIJKLMNOPRSTUGXCЕ/;
$new =~ s/ж/zh/g;
$new =~ s/Ж/Zh/g;;
$new =~ s/ч/ch/g;
$new =~ s/Ч/Ch/g;
$new =~ s/ш/sh/g;
$new =~ s/Ш/Sh/g;
$new =~ s/щ/sch/g;
$new =~ s/Щ/Sch/g;
$new =~ s/я/ja/g;
$new =~ s/ю/ju/g;
$new =~ s/Я/Ja/g;
$new =~ s/Ю/Ju/g;
$new =~ s/ё/jo/g;
$new =~ s/Ё/Jo/g;


rename $f,$new;
}