Status: Solved
Priority: Medium
Security: Public
Views: 717
Last Modified: 2013-12-25

ip address and port check in perl

I need help in scripting out a multiple ip address and port checking in perl. The script will read from a text file with the ip address and port associated with it. If an ip address and port doesn't work it will create a separate logfile and after all the ip address and port has been checked from the text file, this error logfile with the ip address and port that didn't work will be emailed to me. Any assistance will be great. Thanks

djroh

Asked: 2011-03-04

Advertise Here

1 Solution

LVL 8

point_pleasantCommented: 2011-03-04

Give this a try assumes address file is in format of

xxx.xxx.xxx.xxx xx

ip adresss space port

#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket::INET;

my $err_log="/tmp/port_errlog";
open(ERR_LOG, ">$err_log");

while (<>) {
my ($host, $port) = split / /,$_;
#Attempt to connect to $host on $port.
my $socket;
my $success = eval {
$socket = IO::Socket::INET->new(
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp' )
};
#If the port was opened, say it was and close it.
if ($success) {
shutdown($socket, 2);
} else {
chomp ($port);
print (ERR_LOG "$host $port Failed\n");
}
}
system ("mail -s "PORT FAILURE ALERT!" your.email@domain.com < /tmp/port_errlog");
~