#!/usr/bin/perl
use IO::Socket;
my $name = "5dayForecast.pl";
my $url = "www.nws.fsu.edu";
my $query = "/wx/data/text/extended/FEUS71.KLWX";
my $socket = IO::Socket::INET->new(PeerAddr => $url,
PeerPort => 80,
Proto => "tcp",
Type => SOCK_STREAM
Timeout => 10)
or die "$name: Couldn't initialize socket: $@";
my $flags;
if ( !defined( $socket->send("GET $query\n", $flags) ) ) {
close $socket;
print "$name: Can't send: $!\n";
exit;
}
my $i=0;
while (<$socket>) {
print;
}
close $socket;
exit;
In reply to Re: Loading A Site Into An Array
by Anonymous Monk
in thread Loading A Site Into An Array
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |