Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re^2: socket time out

by xarex (Initiate)
on Nov 09, 2007 at 16:08 UTC ( #649928=note: print w/replies, xml ) Need Help??


in reply to Re: socket time out
in thread socket time out

being new to perl i tried that exactly as you said
but its giving complitaion errors,
could you please try to be a little more specific?
Thanks
K-

Replies are listed 'Best First'.
Re^3: socket time out
by Anonymous Monk on Jan 04, 2008 at 11:24 UTC
    It's just missing a ; in the example at the end of the eval closing brace:
    eval {
        local $SIG{'ALRM'} = sub { die "Timed out" };
        alarm($timeout);
        while(<$conn>) {
           ....
           alarm($timeout);
        }
        alarm(0);
    };
    if ($@ =~ /Timed out/) {
        print STDOUT "Timed Out.\r\n";
    }
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (2)
As of 2022-05-22 04:02 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Do you prefer to work remotely?



    Results (79 votes). Check out past polls.

    Notices?