|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Sergey V. Leschenko 2:5020/400 22 Jan 2002 21:57:19
To : Valery Kondakoff
Subject : Re: Перекодировать содерж имое переменной 1251 -> 866?
--------------------------------------------------------------------------------
Valery Kondakoff wrote:
> Вот что у меня получилось:
>
> # ---------------------------
> $faq_file = "faq.rus.txt";
> $out_file = "faq_pt0.txt";
>
[skip]
>
> open(IN, "<$faq_file") or die "Can't open $faq_file file $!";
> undef $/;
> while(<IN>) {
^^^ зачем while? файл сразу весь прочитается
> tr/H/H/;
> tr/р/p/;
> @faq = split("- end of section\n", $_);
> }
> close(IN);
>
>
> А можно ли автоматизировать и перекодировку? Если можно, то как?
>
sub koi2dos {
my($s) = @_;
$s=~tr/\x80-\x8F\x90-\x92\x93-\xC8\xC9-\xD0\xD1-\xD1\xD2-\xD5\xD6-\xE8\xE9-\xF
0\xF1-\xF1\xF2-\xF5\xF6-\xFF/\xC4\xB3\xDA\xBF\xC0\xD9\xC3\xB4\xC2\xC1\xC5\xDF\xD
C\xDB\xDD\xDE\xB0-\xB2\xF4\xFE\xF9\xFB\xF7\xF3\xF2\xFF\xF5\xF8\xFD\xFA\xF6\xCD\x
BA\xD5\xF1\xD6\xC9\xB8\xB7\xBB\xD4\xD3\xC8\xBE\xBD\xBC\xC6\xC7\xCC\xB5\xF0\xB6\x
B9\xD1\xD2\xCB\xCF\xD0\xCA\xD8\xD7\xCE\xFC\xEE\xA0\xA1\xE6\xA4\xA5\xE4\xA3\xE5\x
A8-\xAF\xEF\xE0-\xE3\xA6\xA2\xEC\xEB\xA7\xE8\xED\xE9\xE7\xEA\x9E\x80\x81\x96\x84
\x85\x94\x83\x95\x88-\x8F\x9F\x90-\x93\x86\x82\x9C\x9B\x87\x98\x9D\x99\x97\x9A/;
return $s;
}
--
Best regards, sm@im.kiev.ua
Sergey smash@astral.ntu-kpi.kiev.ua
--- ifmail v.2.15dev5
* Origin: NTUU "KPI" (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: Перекодировать содерж имое переменной 1251 -> 866? 
