ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : vilfred                              2:5020/400     29 Oct 2001  16:57:59
 To : All
 Subject : про кодировку на винте  ufstype=44bsd
 -------------------------------------------------------------------------------- 
 

 Все, сам справился, сорри за флуд.
 
 #!/usr/bin/perl
 use Lingua::RU::Charset qw (:CONVERT);
 print "content-type: text/html\n\n";
 while(</raznoe/*>){
 my $m=$_;
 print koi2win(iso2koi($m)),"<br>\n";
 }
 
 while(</raznoe/*>){
 my $n=$_;
 print iso2koi($n),"<br>\n";
 }
 
 Дима
 -- 
 TEAM [Маньяки]
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.ru (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор