| |
| |
| |
|
Comments:
<0> anyone here know how to make $send = IO::Socket::INET->new(Proto => "tcp", PeerAddr => "$host", PeerPort => "$port") || die "\n[-] Connection failed..."; reconnect on failure, or at least go back to another point in the script ?
<1> Change the die statement to the sub that you want to run. Probably the easiest way.
<0> any chance i can do something like 'goto line#', or 'goto LABEL' ?
<1> Name a sub, like sub do_reconnect { ... }
<1> then go || &reconnect;
<1> er...
<0> mm
<1> &do_reconnect;
<1> You could even put counters and timers into it.
<0> heh.. true enough
<0> so the syntax would just be anyone here know how to make $send = IO::Socket::INET->new(Proto => "tcp", PeerAddr => "$host", PeerPort => "$port") || &reconnect
<0> ?
<0> erf
<0> minus that blabber at the end
<0> er.. beginning.
<1> yip. And a ; on the end.
<0> right right
<0> thanks, i'll give that a try : )
<0> works like a charm
<0> thanks : )
<2> np
<3> hello
<3> could anyone tell me how to join chanell irc.perl.org#dbix-cl***?
<3> anyone around?
Return to
#perl
or
Go to some related
logs:
lithuanian_girl dalnet
#india
#worldchat
hot chenesse
didi ko chuda
#chat-world
#worldchat
#india
bondgirl allnitecafe
#chat-world
|
|