26 lines
663 B
Perl
Executable File
26 lines
663 B
Perl
Executable File
#!/usr/bin/perl
|
||
#
|
||
# Copyright (C) 2001 Ignat Ikryanov <iignat@newmail.ru>
|
||
#
|
||
|
||
use strict;
|
||
my @INtext;
|
||
|
||
open (text, "ru_RU.po") || die "$!";
|
||
open (text1,">ru_RU.KOI8-R.po") || die "$!";
|
||
|
||
@INtext=<text>;
|
||
close(text);
|
||
|
||
foreach(@INtext)
|
||
{
|
||
tr/면坼劉帳票寤浹顥涉尊陰艶<E999B0>琶麟潗愁㉸爐脚稿妹합樸龐일近愷펀裳緊훽保<ED9BBD>/Ｊ촹愾曠百珉尙墓죗碌箝鷺螺答<EFBFBD>輓윰儒蓄蘖晤犧<EFBFBD>殮投倧睛隘劃<EFBFBD>樟初循/;
|
||
s/CP1251/KOI8-R/;
|
||
|
||
# You can alternatively use the following lines to change the conversion direction.
|
||
# tr/Ｊ촹愾曠百珉尙墓죗碌箝鷺螺答<EFA491>輓윰儒蓄蘖晤犧<E699A4>殮投倧睛隘劃<E99A98>樟初循/면坼劉帳票寤浹顥涉尊陰艶<E999B0>琶麟潗愁㉸爐脚稿妹합樸龐일近愷펀裳緊훽保<ED9BBD>/;
|
||
|
||
print text1;
|
||
}
|
||
close (text1);
|