Russian Anime News
Пользователям WinMX
Подготовлено к печати 29.04.2024 в 13:00
Текст новости:
Олег Волков все-таки замечательный. На днях он прислал скрипт для исправления имён файлов. Скрипт поможет всем тем, кто постоянно пользуется WinMX под настроенным русским Windows'ом и выгребает мусор вместо нормальных имён файлов. Этот небольшой перловый скрипт перегоняет побитые перекодировкой через cp1251 Shift-JIS имена в нормальный юникодовый вид.
Инструкции по употреблению:
1. Положить в одну директорию с файлами с битыми именами.
2. Запустить ОДИH раз – при последующих запусках имена, естественно, будут жестоко побиты.
* Внимание! Hи в коем случае не удаляйте первую строчку.
* Работает молча без всякой диагностики переименовывая все файлы в текущей директории.
* Требует наличия на машине Perl’a с установленными модулями Unicode::String, Unicode::Map и Jcode. У меня работает под ActivePerl'ом.
* Hа нерусской локале работать не будет. Hадо вписать соответсвующую локаль в строку $Map = new Unicode::Map
--- sjis-cp1251_to_unicode.pl ---
#! perl -C
use Unicode::String qw(utf8 utf16);
use Unicode::Map;
use Jcode;
$Map = new Unicode::Map("CP1251");
opendir(CURDIR, ".");
foreach(readdir(CURDIR)){
$utf8=$_;
$u=utf8($utf8);
$utf16=$u->utf16;
$cp1251 = $Map -> from_unicode ($utf16);
$nutf8=Jcode::convert($cp1251, "utf8", "sjis");
if($nutf8 ne $utf8) { rename ($utf8, $nutf8) }
}
--- sjis-cp1251_to_unicode.pl ---
|
|