Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Last mod not working

by monktim (Friar)
on Jan 28, 2004 at 18:36 UTC ( [id://324731]=note: print w/replies, xml ) Need Help??


in reply to Last mod not working

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

Replies are listed 'Best First'.
Re: Re: Last mod not working
by Anonymous Monk on Jan 28, 2004 at 18:45 UTC
    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"; }
      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];

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://324731]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others studying the Monastery: (7)
As of 2024-03-28 08:48 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found