Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: Подскажите алгоритм
Показать сообщение отдельно

Старожил


Сообщения: 335
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать


wolland
Это нетрудно сделать с помощью автозамены в скрипте. Вот, например, в Perl'e "алгоритм" перевода из одной кодировки в другую cледующий:
$vl=~tr/\200-\257\340-\361/\300-\377\250\270/;
$vl - исходная строка; между первым и вторым "/" (1) находятся коды символов исходной кодировки, между вторым и третьим "/" (2) - кодировка, в которую надо перегнать строку. В результате $vl меняет свою кодировку. Для того, чтобы закодировать строку надо в (1) перечислить символы, подлежащие кодированию, а в (2), соответственно, символы, в которые надо перекодировать.
То есть:
Код: Выделить весь код
my $vl='qwertyu'; 
$vl=~tr/uytrewq/jhgfdsa/; 
print '$vl='."$vl\n";
В результате должна появиться строка:
Код: Выделить весь код
$vl=asdfghj

-------
Спасибо за внимание
Slackware и LFS...


Отправлено: 14:12, 10-06-2003 | #2

Название темы: Подскажите алгоритм