кодировка

[Гость]

Привет! Подскажите пожалуйста есть ли модульили функция для преобразования кодировки. win1251 to koi-8

[Гость]

man iconv

man 3 iconv

[Гость]

#!/usr/bin/perl

# w2k; use: cat FILENAME | w2k OR w2k NEWFILENAME

while(<>) { tr/юабцдефгхийклмнопярстужвьыэзшщчъЁЮАБЦДЕФГХИЙКЛМНОПЯРСТУЖВЬЫЭЗШЩЧЪё№/АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЬЪЫЭЮЯЕабвгдежзийклмнопрстуфхцчшщьъыэюяеN/;

s/[\n\r]+/\n/;

print;

}