Примеры  >  Разное  >  Преобразование текста из кодировки KOI-8 в Windows-1251

Пример преобразования текста из кодировки KOI-8 в Windows-1251 при помощи регулярного выражения.

# Пример в Perl

sub koi2win
{
foreach (@_)
{
$_ =~ tr/\200-\377/\200\201\202\203\204\205\206\207\210\211
\212\213\214\215\216\217\220\221\222\223\224\225\226
\227\230\231\240\233\260\235\267\237\232\241\242\270
\244\245\246\247\263\251\252\253\254\255\256\257\234
\261\262\250\264\265\266\236\243\271\272\273\274\275
\276\251\376\340\341\366\344\345\364\343\365\350\351
\352\353\354\355\356\357\377\360\361\362\363\346\342
\374\373\347\370\375\371\367\372\336\300\301\326\304
\305\324\303\325\310\311\312\313\314\315\316\317\337
\320\321\322\323\306\302\334\333\307\330\335\331\327
\332/;
}
return (wantarray ? @_ : "@_")
}

Den Karasiov, 24.05.2006.

Вернуться к списку

Добавить в закладки