Исходное сообщение
"Perl/CGI FAQ (web cgi html faq)" Отправлено Аноним, 17-Апр-02 12:35
Подскажете пожалуйста как справиться со следующей ситуацией (ОС -XP,Windows-2000). Задача - прочитать информацию из опред.сайта при помощи LWP. Проблема в том, что прочитанная информация оказываетя в кодировке Кирилица-ISO, вместо Кирилица-Windows. Browser вычитывает ту же страницу в нужной кодировке, а скрипт в Кирилица-ISO. Как можно это побороть. use LWP::UserAgent; $ua = new LWP::UserAgent; $ua->proxy(['http'] => 'http://inet/'); $req = new HTTP::Request 'GET','$url_adr'; $req->proxy_authorization_basic("www-18comp36","Gimmi"); $res = $ua->request($req); if ($res->is_success)     {      open (OUT,">text2.txt");      $ww=$res->content;      print OUT $ww;      close OUT;     } else     {      print "\nCan't connect: $url_adr";      exit;     } Зараннее благодарен за помощь. Виталий.

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> Подскажете пожалуйста как справиться со следующей ситуацией (ОС -XP,Windows-2000). > Задача - прочитать информацию из опред.сайта при помощи LWP. > Проблема в том, что прочитанная информация оказываетя в кодировке Кирилица-ISO, > вместо Кирилица-Windows. Browser вычитывает ту же страницу в нужной кодировке, а > скрипт в Кирилица-ISO. Как можно это побороть. > use LWP::UserAgent; > $ua = new LWP::UserAgent; > $ua->proxy(['http'] => 'http://inet/'); > $req = new HTTP::Request 'GET','$url_adr'; > $req->proxy_authorization_basic("www-18comp36","Gimmi"); > $res = $ua->request($req); > if ($res->is_success) > { > open (OUT,">text2.txt"); > $ww=$res->content; > print OUT $ww; > close OUT; > } > else > { > print "\nCan't connect: $url_adr"; > exit; > } > Зараннее благодарен за помощь. > Виталий.
	Введите код, изображенный на картинке: