Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

Re: Re: Last mod not working

by Anonymous Monk
on Jan 28, 2004 at 18:45 UTC ( #324734=note: print w/replies, xml ) Need Help??


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"; }

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];

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (6)
As of 2022-09-26 07:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer my indexes to start at:




    Results (117 votes). Check out past polls.

    Notices?