Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

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();

Comment on Re: Building a simple service scanner with POE
Download Code

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (9)
As of 2015-11-30 08:46 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (766 votes), past polls