sub win2koi{
my $txt=shift;
$txt=~tr~абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ~БВЧЗДЕ_ЦЪЙКЛМНОПРТУФХЖИГЮЫЭЯЩШЬАСбвчзде_цъйклмнопртуфхжигюыэящшьас~;
return($txt);
}
sub koi2win{
my $txt=shift;
$txt=~tr~БВЧЗДЕ_ЦЪЙКЛМНОПРТУФХЖИГЮЫЭЯЩШЬАСбвчзде_цъйклмнопртуфхжигюыэящшьас~абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ~;
return($txt);
}
перекодировка в Perl
нужно перекодировать строку в кодировке win в строку в кодировке koi, но не знаю как это реализовать.
Пожалуйста подскажите.
Пожалуйста подскажите.