in reply to How to get web creation date from webserver?
use IO::Socket::INET; use strict; use warnings; my $connection = IO::Socket::INET->new(Proto => "tcp", PeerAddr => "ja +gadish.blogspot.com", PeerPort =>80) || die "failed"; print $connection "HEAD http://jagadish.blogspot.com/index.html HTTP/1 +.1\r\nHost: jagadish.blogspot.com\r\n\r\n"; while (<$connection>) { ($_ eq "\r\n") ? last : print; }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: How to get web creation date from webserver?
by gube (Parson) on Aug 23, 2005 at 04:52 UTC | |
by CountZero (Bishop) on Aug 23, 2005 at 05:28 UTC | |
by pg (Canon) on Aug 23, 2005 at 05:14 UTC | |
|
Re: How to get web creation date from webserver?
by b10m (Vicar) on Aug 24, 2005 at 09:44 UTC |