ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Roman V Tchemisov                    2:5020/400     16 Apr 2004  21:00:58
 To : All
 Subject : Кодировки...
 -------------------------------------------------------------------------------- 
 

 Hi, All!
 
 Есть скрипт:
 ===========uinfo.pl===========
 #!/usr/bin/perl
 
 use LWP::UserAgent;
 use strict;
 
 my $ua = LWP::UserAgent->new;
 
 $ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)');
 
 my $req = HTTP::Request->new(GET => 'http://some.site.ru/uinfo.php?pid=3');
 my $res = $ua->request($req);
 open(FILE, '>uinfo.htm') or die;
 print FILE $res->content;
 close(FILE);
 ===========uinfo.pl===========
 
 OS: Windows 2000
 Всё OK. Файл сохраняется нормально (кодировка KOI8-R).
 
 OS: ASPLinux (локаль UTF-8)
 Файл сохраняется непонятно в какой кодировке.
 
 Почему? Как мне заставить Перл сохранять в KOI (или в UTF)?
 --- ifmail v.2.15dev5.3
  * Origin: Golden Telecom (2:5020/400)
 
 

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