http://qs1969.pair.com?node_id=324734


in reply to Re: Last mod not working
in thread Last mod not working

If I keep getting "Time not available" does that mean the head method cant find any last mod time on the web page?? 
use LWP::Simple;
use warnings;
use strict;


my $url = 'www.perl.com';
my $content = get($url);

my $lastMod = (head($url))[2];


if (defined $lastMod) {
    my ($lastModFormat) = scalar localtime($lastMod);
    print "$lastModFormat\n";
} else {
    print "Time not available\n";
}

[download]

Replies are listed 'Best First'.
Re: Re: Re: Last mod not working
by monktim (Friar) on Jan 28, 2004 at 18:51 UTC
    That's correct. Even with the http:// prefix as derby suggested, the modified time isn't passed back. Your code is fine, you just need to check if the values are defined. 
    use LWP::Simple;
use warnings;
use strict;


my $url = 'http://www.perl.com';
my $content = get($url);

my (@header) =  head($url);

print "content type: $header[0]\n" if defined $header[0];
print "document length: $header[1]\n" if defined $header[1];
print "modified time: $header[2]\n" if defined $header[2];
print "expires: $header[3]\n" if defined $header[3];
print "server: $header[4]\n" if defined $header[4];

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom