Network Perl

  1. Home
  2. Perl
  3. Network
  4. 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";