21.07.2008, 15:58
|
|
Постоянный
Регистрация: 23.03.2006
Сообщений: 977
Провел на форуме:
2976185
Репутация:
694
|
|
Народ, привет. Я тут книжку одну читаю, а там скрипт на перле что бы узнать поле SERVER из заголовка ответа. Скрипт что то не канает. Перл вижу почти впервые....  Вот листинг
Код:
#!usr/bin/perl
use LWP::UserAgent;
$client = LWP::UserAgent->new( ) or die;
print "Enter site:";
$url=<STDIN>; #Просим пользователя ввести адрес сайта
$answer = $client->get($url); #Отсылаем запрос на сайт
print "============================\n";
print $answer->header("server")."\n"; # Выводим поле Server из заголовка
print "============================\n";
никаких ошибок нет но поле не выводит. просто тупо пусто там.
Заранее спасибо!
Последний раз редактировалось blaga; 21.07.2008 в 16:00..
|
|
|