|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Mikhail Basov 2:5020/400 28 Feb 2003 16:00:03
To : Aeroplan
Subject : Re: Вопрос чайника
--------------------------------------------------------------------------------
Fri Feb 28 2003 13:42, Aeroplan wrote to Sergey Ermakov:
A> From: "Aeroplan" <Aeroplan@norma.spb.ru>
A> Вот есть хорошая функция from Denis Poznyakov вместе с перекодировщиком.
A> # $str=encoder($str,"win","dos");
A> # $str=encoder($str,"dos","uc");
A> # $str=encoder($str,"dos","lc");
A> #
A> sub encoder {
A> my ($enstring,$cfrom,$cto)=@_;
[skipped]
--------------------------
my
$ABC_koi="АБВГДЕЁЖЗИКЛМHОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзиклмнопрстуфхцчшщъыьэюя";
my $ABC_win=encoder($ABC_koi, koi, win);
my $ABC=encoder($ABC_win, win, koi);
print "back win ".$ABC."\n";
---------------------------
back win АБВГДЕЁЖЗИКЛМHОПРуТУФХЦЧШЩЪЫЬЭЮЯабвгДеёжзиклмнопрстуфхцЮшщъыьэюя
---------------------------
Функция может и хорошая но, по крайней мере при указанной перекодировке,
некорректная
Михаил Басов
--- ifmail v.2.15dev5
* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
