Checking for an open port : getservbyport « Network « Perl

1. Perl
2. Network
3. getservbyport

Checking for an open port

    

#!/usr/bin/perl -w

# Finds an open port.
$port = 2345;
while (getservbyport($port, "tcp") ) {
    $port++;
}
print "An open port number is $port\n";

   
    
    
    
  

Related examples in the same category