Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: Building a simple service scanner with POE

by johnnywang (Priest)
on Sep 09, 2005 at 18:05 UTC ( #490689=note: print w/replies, xml ) Need Help??

in reply to Building a simple service scanner with POE

Since you only want the connection status, you probably should use the POE::Wheel::SocketFactory instead of the component (which is built on top of SocketFactory). Something like the following:( not tested, not even syntax)
use strict; use POE; use POE::Wheel::SocketFactory; my $task = [ { name => '', proto => 'tcp', port => 80 }, { name => '', proto => 'tcp', port => 25 }, { name => '', proto => 'udp', port => 53 }, ]; for my $t( @$task ) { POE::Wheel::SocketFactory->new( RemoteAddress => $t->{host}, RemotePort => $t->{port}, SocketProtocol => $t->{proto}, SuccessEvent => sub { print "$t->{host}:$t->{proto}:$t->{port} up\n"; $poe_kernel->yield( 'shutdown' ); }, FailureEvent => sub { print "$t->{host}:$t->{proto}:$t->{por +t} down\n" }, ); } $poe_kernel->run();

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://490689]
[LanX]: understanding this code is like relearning space invaders and donkey Kong at the same time
[holli]: i saw that thread and figured it`s OPP value too high. i didnt realise its PM code
[LanX]: its the style attribute, I can't show you pm code, can only link to old everything docs of you want

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (7)
As of 2017-11-20 21:37 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (294 votes). Check out past polls.