твой браузер воспринимает выводимую скриптом инфу как текстовый файл попробуй вместо print "Content-type: text/plain\\n\\n";
вставь print "Content-type: text/html\\n\\n";
должно заработать
Не... это не из-за этого... Мне и нужно чтобы он выводил не html, а текст. С другими серверами все работает отлично и с plain. Не работает только с этим сайтом!
Вот это я как понял, ты бездумно выдернул из хелпа
$ua->agent("AgentName/0.1 " . $ua->agent);
Точно!!! Так дело и было... Не очень догнался чего там вообще писать можно...
Аааа вообще весь кусок из хелпа... дык метод get для твоего случая не проще использовать?
А я чего использовал???
Во-первых: там get, http и т.д. не поддерживается. Если написать, например, http://www.webscript.ru/ , то все будет ок. Всю страничку он тебевыплюнет.
Чего-то я не очень понял... Можно поподробнее?
Попробовал последовать вашим советам (насколько я их понял). У меня получилось что-то вроде:
#!c:/perl/bin/perl.exe
use CGI;
use LWP::UserAgent;
$ua=new LWP::UserAgent;
$ua->agent("Mozilla/5.0");
$req = HTTP::Request -> new (\'get\',\'
http://www.samair.ru/\');$req->content_type(\'text/html\');
$req->content(\'match=www&errors=0\');
$res=$ua->request($req);
open (SAMARA, "> samara.htm");
print SAMARA $res->content;
close SAMARA;
print "Content-type: text/plain\\n\\n";
open (PROXY, "< samara.htm");
$i=0;
while ($prx=
) {
if ($prx=~/[0-9\\.:]{11,20}/) {
$i++;
$prx=~/([0-9\\.:]{11,20})/;
print $i." ".$1."\\n";
}
}
close (PROXY);
Да, кстати, то что метод get не поддерживается он пишет не в результате выполнения программы, а в файле samara.htm