Usage of IO::Socket::PortState

[born4blog]

I know this is a stupid question. I'm a starter in Perl even for scripting. Could anybody tell me how to use the cpan module IO::Socket::PortState ? I just want to check whether given port is enabled on the remote server. I've gone through the how to on cpan page, but I can't understand it. If anyone explain the usage it would be very helpful for beginners like me Thanks

[Khen1950fx]

See: Testing for port connectivity. JSchmitz shows you how to get the status of a single port, and McDarren shows how to handle multiple hosts. Here's an example:

#!/usr/bin/perl 

use strict;
use warnings;
use IO::Socket::PortState qw(check_ports);

my $proto   = 'tcp';
my $port    = '80';
my $address = '127.0.0.1'; 

my($section, $ping_timeout, %porthash);
$porthash{$proto}{$port}{'name'} = $section;
check_ports($address, $ping_timeout, \%porthash);

my $open = $porthash{$proto}{$port}{'open'};
if ($open) {
    print "alive\n";
}
else {
    print "dead\n";
}

[Anonymous Monk]

Surely the docs can tell you how to use it? Lets check  [mod://IO::Socket::PortState] IO::Socket::PortState .. I checked, they do tell you how to use it

[born4blog]

The problem is I couldn't understand it :( Could you please paste a snippet on how to check the status of port?

Thanks

[Anonymous Monk]

The problem is I couldn't understand it :( Could you please paste a snippet on how to check the status of port?

Couldn't understand what?

You mean you couldn't understand %porthash ? There is an example if you scroll down , or search for "porthash"

This is how docs work, short stuff on top, details below :)