pricina chyby v tomto skriptu

[Honza Pazdziora]

On Mon, 3 Dec 2001 13:15:11 GMT, Petr Bartos <xbartos5 na fi.muni.cz> wrote:

> mam problem s timto skriptem, na radku za 'Timeout' mi to hlasi:
> 'Can't use an undefined value as a symbol reference'
> Ten skript neni cely, zatim by mel delat skoro totez co v LWP::Simple
> prikaz 'get'. Jsem v perlu zacatecnik a uvitam jakoukoliv radu. 
> 
> Petr Bartos
> 
> #!/usr/bin/perl
> #use IO::Socket::INET;
> use IO::Socket;
>  
> $method = "GET";
> $host = "http://www.fi.muni.cz";
> $path = "/~xbartos5/rozvrh.cgi";
> $referer = "http://www.fi.muni.cz/~xbartos5/menu.htm";
> $socket = new IO::Socket::INET( PeerAddr => $host,

Ten host asi nema zacinat http://. Bylo by take dobre pouzit -w a use
strict.

-- 
------------------------------------------------------------------------
 Honza Pazdziora | adelton na fi.muni.cz | http://www.fi.muni.cz/~adelton/
 .project: Perl, mod_perl, DBI, Oracle, auth. WWW servers, XML/XSL, ...
Petition for a Software Patent Free Europe http://petition.eurolinux.org
------------------------------------------------------------------------