die "perl port-state-service+IP-disk-goto-if-2.pl <INPUT_FILE_ports> <INPUT_FILE_IP> <OUTPUT_FILE> " if $#ARGV < 2;

open(F0, $ARGV[0]); open(F1, $ARGV[1]); open(F2, ">$ARGV[2]");
$line_no=$line_stop=0;
print F2 "IP\t\tport\tstate\tprotocol\n\n";
label0:
if ($_ = <F0>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {};
	s/\r\n//;s/\t+/\t/;chomp;
	if (/^[0-9]+/) {
		$line_port=$';
		$line_no=$&;
label1:		if (($line_stop < $line_no) && ($line_IP = <F1>)) {
			$line_stop++ if $line_IP =~ /[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]/; goto label1;
		}
		if ($line_stop == $line_no) {
			$line_IP =~ s/^[\t\ ]+//g;$line_IP =~ s/[\t\ ]+$//g ;$line_IP =~ s/\n$//g;
			$line_port =~ s/^[\t\ ]+//g;$line_port =~ s/[\t\ ]+$//g ;
			print F2 "$line_IP\t$line_port\n";
		}
	}
	goto label0;
}

close F0; close F1; close F2;