pricina chyby v tomto skriptu

[Petr Bartos]

Uz to funguje, diky. Zajimave je, ze s tim strict to nejde, asi to nemam
zapsane moc "ciste". 

P.


Honza Pazdziora wrote:
> 
> 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
> ------------------------------------------------------------------------