VPF::Почему не могу получить время модификации ссылки?

stan777

Дата 6.2.2007, 14:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 145
Регистрация: 29.1.2007

Репутация: нет
Всего: нет

не могу получить время модификации print "
Last-Modified: ".$resp->last_modified."\n";

вот код:

Код


#!/usr/bin/perl -w

open LINKS, "<links.txt" or die "$!";
chomp(my @links = <LINKS>);
close LINKS;
use LWP::UserAgent;
use URI::URL;
foreach $lk (@links){
$lk="http://".$lk;
$ua = LWP::UserAgent->new(agent=>'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)',timeout=>'120',keep_alive =>'5');
$url = URI::URL->new("$lk");
$hdrs=HTTP::Headers->new('Accept'=>'text/plain','UserAgent'=>'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)');
$reqH=HTTP::Request->new('HEAD',$url,$hdrs);
$resp=$ua->request($reqH);
if($resp->is_success){
    print "  Last-Modified: ".$resp->last_modified."\n";
}
else {sleep(1);}
}
exit(0);

Это сообщение отредактировал(а) stan777 - 6.2.2007, 14:44

nitr

Дата 6.2.2007, 16:25 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

невсегда есть в ответе last_modified

--------------------

I love ArchLinux

stan777

Дата 6.2.2007, 18:33 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 145
Регистрация: 29.1.2007

Репутация: нет
Всего: нет

Цитата(nitr @ 6.2.2007, 16:25)

невсегда есть в ответе last_modified

И снова нитр спасиба за твою наблюдательность smile

, точно посмотрел ответы, не везде.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »