port-state-service+IP-mem-list-direct.pl
port-state-service+IP-mem-hash-direct.pl
port-state-service+IP-mem-array.pl
port-state-service+IP-mem-array-delete.pl
port-state-service+IP-mem-array-delete-xtra.pl
port-state-service+IP-mem-hash-direct-delete.pl
port-state-service+IP-mem-hash-direct-delete-xtra.pl
port-state-service+IP-mem-hash-indirect.pl
port-state-service+IP-mem-list-indirect.pl
port-state-service+IP-mem-list-splice.pl
port-state-service+IP-mem-list-splice-xtra.pl

##</code><code>##

port-state-service+IP-mem-array-ARGV-line-IP-start.pl
port-state-service+IP-mem-hash-indirect-ARGV-line-IP-start.pl
port-state-service+IP-mem-array-delete-ARGV-line-IP-start.pl
port-state-service+IP-mem-list-direct-ARGV-line-IP-start.pl
port-state-service+IP-mem-array-delete-xtra-ARGV-line-IP-start.pl
port-state-service+IP-mem-list-indirect-ARGV-line-IP-start.pl
port-state-service+IP-mem-hash-direct-ARGV-line-IP-start.pl
port-state-service+IP-mem-list-splice-ARGV-line-IP-start.pl
port-state-service+IP-mem-hash-direct-delete-ARGV-line-IP-start.pl
port-state-service+IP-mem-list-splice-xtra-ARGV-line-IP-start.pl
port-state-service+IP-mem-hash-direct-delete-xtra-ARGV-line-IP-start.pl

##</code><code>##

die "perl port-state-service+IP-mem-array.pl <INPUT_FILE_ports> <INPUT_FILE_IP> <OUTPUT_FILE> <LINE_IP_LINE>" if $#ARGV < 3;

##</code><code>##

port-state-service+IP-mem-array-ARGV-line-IP-start.pl
port-state-service+IP-mem-array-delete-ARGV-line-IP-start.pl
port-state-service+IP-mem-list-direct-ARGV-line-IP-start.pl
port-state-service+IP-mem-array-delete-xtra-ARGV-line-IP-start.pl
port-state-service+IP-mem-hash-direct-ARGV-line-IP-start.pl
port-state-service+IP-mem-list-splice-ARGV-line-IP-start.pl
port-state-service+IP-mem-hash-direct-delete-ARGV-line-IP-start.pl
port-state-service+IP-mem-list-splice-xtra-ARGV-line-IP-start.pl
port-state-service+IP-mem-hash-direct-delete-xtra-ARGV-line-IP-start.pl

##</code><code>##

port-state-service+IP-mem-list-indirect-ARGV-line-IP-start.pl
port-state-service+IP-mem-hash-indirect-ARGV-line-IP-start.pl

##</code><code>##

die "perl port-state-service+IP-mem-array-ARGV-line-IP-start.pl <INPUT_FILE_ports> <INPUT_FILE_IP> <OUTPUT_FILE> <LINE_IP_LINE>" if $#ARGV < 3;
die "ARGV[3] <LINE_IP_LINE> MUST contain just a number: got =>$ARGV[3]<=" if $ARGV[3] =~ /[^0-9]/;
open(F0, $ARGV[0]); open(F1, $ARGV[1]); open(F2, ">$ARGV[2]");
$line_no=$ARGV[3];

while (<F1>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {}; s/\r\n//;chomp;
	$IP[$line_no++] = $& if /[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]/;
}
close F1;
print F2 "IP\t\tport\tstate\tprotocol\n\n";
while (<F0>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {};
	s/\r\n//;s/\t+/\t/;chomp;/^[0-9]+/;$line=$';$line_no=$&;
	$line =~ s/^[\t\ ]+//g;$line =~ s/[\t\ ]+$//g ;
	print F2 $IP[$line_no - 1], "\t$line\n" if /[0-9]+\//; 
}
close F0; close F2;

##</code><code>##

die "perl port-state-service+IP-mem-array-delete-ARGV-line-IP-start.pl <INPUT_FILE_ports> <INPUT_FILE_IP> <OUTPUT_FILE> <LINE_IP_LINE>" if $#ARGV < 3;
die "ARGV[3] <LINE_IP_LINE> MUST contain just a number: got =>$ARGV[3]<=" if $ARGV[3] =~ /[^0-9]/;
open(F0, $ARGV[0]); open(F1, $ARGV[1]); open(F2, ">$ARGV[2]");
$line_no=$ARGV[3];

while (<F1>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {}; s/\r\n//;chomp;
	$IP[$line_no++] = $& if /[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]/;
}
close F1;
print F2 "IP\t\tport\tstate\tprotocol\n\n";
while (<F0>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {};
	s/\r\n//;s/\t+/\t/;chomp;/^[0-9]+/;$line=$';$line_no=$&;
	$line =~ s/^[\t\ ]+//g;$line =~ s/[\t\ ]+$//g ;
	if (/[0-9]+\//) {
		$temp = $IP[$line_no - 1] if $IP[$line_no - 1] ne "";$IP[$line_no - 1] = "";
		print F2 $temp, "\t$line\n";$IP[$line_no - 1] = "";
	}


}
close F0; close F2;

##</code><code>##

die "perl port-state-service+IP-mem-array-delete-xtra-ARGV-line-IP-start.pl <INPUT_FILE_ports> <INPUT_FILE_IP> <OUTPUT_FILE> <LINE_IP_LINE>" if $#ARGV < 3;
die "ARGV[3] <LINE_IP_LINE> MUST contain just a number: got =>$ARGV[3]<=" if $ARGV[3] =~ /[^0-9]/;
open(F0, $ARGV[0]); open(F1, $ARGV[1]); open(F2, ">$ARGV[2]");
$line_no=$ARGV[3];

while (<F1>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {}; s/\r\n//;chomp;
	$IP[$line_no++] = $& if /[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]/;
}
close F1;
print F2 "IP\t\tport\tstate\tprotocol\n\n";$x = $y = 0;
while (<F0>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {};
	s/\r\n//;s/\t+/\t/;chomp;/^[0-9]+/;$line=$';$line_no=$&;
	$line =~ s/^[\t\ ]+//g;$line =~ s/[\t\ ]+$//g ;
        if ($y > $x) {
                for ($z = $x;$z < $y;$z++) {
                        delete $IP[$z];
                }
        }
	if (/[0-9]+\//) {
		$temp = $IP[$line_no - 1] if $IP[$line_no - 1] ne "";$IP[$line_no - 1] = "";
		print F2 $temp, "\t$line\n";$IP[$line_no - 1] = "";
	}
	$x = $y;
}
close F0; close F2;

##</code><code>##

die "perl port-state-service+IP-mem-hash-direct-ARGV-line-IP-start.pl <INPUT_FILE_ports> <INPUT_FILE_IP> <OUTPUT_FILE> <LINE_IP_LINE>" if $#ARGV < 3;
die "ARGV[3] <LINE_IP_LINE> MUST contain just a number: got =>$ARGV[3]<=" if $ARGV[3] =~ /[^0-9]/;
open(F0, $ARGV[0]); open(F1, $ARGV[1]); open(F2, ">$ARGV[2]");
$line_no=$ARGV[3];

while (<F1>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {}; s/\r\n//;chomp;
	$IP{$line_no++} = $& if /[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]/;
}
close F1;
print F2 "IP\t\tport\tstate\tprotocol\n\n";
while (<F0>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {};
	s/\r\n//;s/\t+/\t/;chomp;/^[0-9]+/;$line=$';$line_no=$&;
	$line =~ s/^[\t\ ]+//g;$line =~ s/[\t\ ]+$//g ;
	print F2 $IP{$line_no - 1}, "\t$line\n" if /[0-9]+\//;
}
close F0; close F2;

##</code><code>##

die "perl port-state-service+IP-mem-hash-direct-delete-ARGV-line-IP-start.pl <INPUT_FILE_ports> <INPUT_FILE_IP> <OUTPUT_FILE> <LINE_IP_LINE>" if $#ARGV < 3;
die "ARGV[3] <LINE_IP_LINE> MUST contain just a number: got =>$ARGV[3]<=" if $ARGV[3] =~ /[^0-9]/;
open(F0, $ARGV[0]); open(F1, $ARGV[1]); open(F2, ">$ARGV[2]");
$line_no=$ARGV[3];

while (<F1>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {}; s/\r\n//;chomp;
	$IP{$line_no++} = $& if /[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]/;
}
close F1;
print F2 "IP\t\tport\tstate\tprotocol\n\n";
while (<F0>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {};
	s/\r\n//;s/\t+/\t/;chomp;/^[0-9]+/;$line=$';$line_no=$&;
	$line =~ s/^[\t\ ]+//g;$line =~ s/[\t\ ]+$//g ;
	$temp = delete $IP{$line_no - 1} if $IP{$line_no - 1};
	print F2 $temp, "\t$line\n" if /[0-9]+\//;
}
close F0; close F2;

##</code><code>##

die "perl port-state-service+IP-mem-hash-direct-delete-xtra-ARGV-line-IP-start.pl <INPUT_FILE_ports> <INPUT_FILE_IP> <OUTPUT_FILE> <LINE_IP_LINE>" if $#ARGV < 3;
die "ARGV[3] <LINE_IP_LINE> MUST contain just a number: got =>$ARGV[3]<=" if $ARGV[3] =~ /[^0-9]/;
open(F0, $ARGV[0]); open(F1, $ARGV[1]); open(F2, ">$ARGV[2]");
$line_no=$ARGV[3];

while (<F1>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {}; s/\r\n//;chomp;
	$IP{$line_no++} = $& if /[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]/;
}
close F1;
print F2 "IP\t\tport\tstate\tprotocol\n\n";$x = $y = 0;
while (<F0>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {};
	s/\r\n//;s/\t+/\t/;chomp;/^[0-9]+/;$line=$';$line_no=$&;
	$line =~ s/^[\t\ ]+//g;$line =~ s/[\t\ ]+$//g ;
	$temp = delete $IP{$line_no - 1} if $IP{$line_no - 1};
	$y = $line_no - 1;
	if ($y > $x) {
		for ($z = $x;$z < $y;$z++) {
			delete $IP{$z};
		}
	}
	print F2 $temp, "\t$line\n" if /[0-9]+\//;
	$x = $y;
}
close F0; close F2;

##</code><code>##

die "perl port-state-service+IP-mem-hash-indirect-ARGV-line-IP-start.pl <INPUT_FILE_ports> <INPUT_FILE_IP> <OUTPUT_FILE> <LINE_IP_LINE>" if $#ARGV < 3;
die "ARGV[3] <LINE_IP_LINE> MUST contain just a number: got =>$ARGV[3]<=" if $ARGV[3] =~ /[^0-9]/;
sub idx {
	print F2 $IP{$line_no - 1}, "\t$line\n" if /[0-9]+\//;
}

open(F0, $ARGV[0]); open(F1, $ARGV[1]); open(F2, ">$ARGV[2]");
$line_no=$ARGV[3];

while (<F1>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {}; s/\r\n//;chomp;
        $IP{$line_no++} = $& if /[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]/;

}
close F1;
print F2 "IP\t\tport\tstate\tprotocol\n\n";
while (<F0>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {};
	s/\r\n//;s/\t+/\t/;chomp;/^[0-9]+/;$line=$';$line_no=$&;
	$line =~ s/^[\t\ ]+//g;$line =~ s/[\t\ ]+$//g ;
	&idx;
}
close F0; close F2;

##</code><code>##

die "perl port-state-service+IP-mem-list-direct-ARGV-line-IP-start.pl <INPUT_FILE_ports> <INPUT_FILE_IP> <OUTPUT_FILE> <LINE_IP_LINE>" if $#ARGV < 3;
die "ARGV[3] <LINE_IP_LINE> MUST contain just a number: got =>$ARGV[3]<=" if $ARGV[3] =~ /[^0-9]/;
open(F0, $ARGV[0]); open(F1, $ARGV[1]); open(F2, ">$ARGV[2]");
$line_no=$ARGV[3];

while (<F1>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {}; s/\r\n//;chomp;
	push @IP,$& if /[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]/;
}
close F1;
print F2 "IP\t\tport\tstate\tprotocol\n\n";
while (<F0>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {};
	s/\r\n//;s/\t+/\t/;chomp;/^[0-9]+/;$line=$';$line_no=$&;
	$line =~ s/^[\t\ ]+//g;$line =~ s/[\t\ ]+$//g ;
	print F2 $IP[$line_no - 1], "\t$line\n" if /[0-9]+\//; 
}
close F0; close F2;

##</code><code>##

die "perl port-state-service+IP-mem-list-indirect-ARGV-line-IP-start.pl <INPUT_FILE_ports> <INPUT_FILE_IP> <OUTPUT_FILE> <LINE_IP_LINE>" if $#ARGV < 3;
die "ARGV[3] <LINE_IP_LINE> MUST contain just a number: got =>$ARGV[3]<=" if $ARGV[3] =~ /[^0-9]/;
sub idx {
	print F2 $IP[$line_no - 1], "\t$line\n"
}

open(F0, $ARGV[0]); open(F1, $ARGV[1]); open(F2, ">$ARGV[2]");
$line_no=$ARGV[3];

while (<F1>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {}; s/\r\n//;chomp;
	push @IP,$& if /[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]/;
}
close F1;
print F2 "IP\t\tport\tstate\tprotocol\n\n";
while (<F0>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {};
	s/\r\n//;s/\t+/\t/;chomp;/^[0-9]+/;$line=$';$line_no=$&;
	$line =~ s/^[\t\ ]+//g;$line =~ s/[\t\ ]+$//g ;
	&idx;
}
close F0; close F2;

##</code><code>##

die "perl port-state-service+IP-mem-list-splice-ARGV-line-IP-start.pl <INPUT_FILE_ports> <INPUT_FILE_IP> <OUTPUT_FILE> <LINE_IP_LINE>" if $#ARGV < 3;
die "ARGV[3] <LINE_IP_LINE> MUST contain just a number: got =>$ARGV[3]<=" if $ARGV[3] =~ /[^0-9]/;
open(F0, $ARGV[0]); open(F1, $ARGV[1]); open(F2, ">$ARGV[2]");
$line_no=$ARGV[3];

while (<F1>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {}; s/\r\n//;chomp;
	push @IP,$& if /[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]/;
}
close F1;

print F2 "IP\t\tport\tstate\tprotocol\n\n";$temp_IP = "";$y = $z = 0;
while (<F0>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {};
	s/\r\n//;s/\t+/\t/;chomp;/^[0-9]+/;$line=$';$line_no=$&;
	$line =~ s/^[\t\ ]+//g;$line =~ s/[\t\ ]+$//g ;
	if (/[0-9]+\//) {
		if ($y != ($line_no - 1)) {
			$temp_IP = splice(@IP, $line_no - 1 - $z++, 1);$y = $line_no - 1;
		}
		print F2 $temp_IP, "\t$line\n";
	}
}
close F0; close F2;

##</code><code>##

die "perl port-state-service+IP-mem-list-splice-xtra-ARGV-line-IP-start.pl <INPUT_FILE_ports> <INPUT_FILE_IP> <OUTPUT_FILE> <LINE_IP_LINE>" if $#ARGV < 3;
die "ARGV[3] <LINE_IP_LINE> MUST contain just a number: got =>$ARGV[3]<=" if $ARGV[3] =~ /[^0-9]/;
open(F0, $ARGV[0]); open(F1, $ARGV[1]); open(F2, ">$ARGV[2]");
$line_no=$ARGV[3];

while (<F1>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {}; s/\r\n//;chomp;
	push @IP,$& if /[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]\.[0-2]?[0-9]?[0-9]/;
}
close F1;

print F2 "IP\t\tport\tstate\tprotocol\n\n";$temp_IP = "";$w = $x = $y = $z = 0;
while (<F0>) {
	while (s/^[\ \t]//g) {}; while (s/[\ \t]$//g) {};
	s/\r\n//;s/\t+/\t/;chomp;/^[0-9]+/;$line=$';$line_no=$&;
	$line =~ s/^[\t\ ]+//g;$line =~ s/[\t\ ]+$//g ;
	if (/[0-9]+\//) {
		if ($y != ($line_no - 1)) {
			$temp_IP = splice(@IP, $line_no - 1 - $z++, 1);$y = $line_no - 1;
			splice(@IP, $x - $w, $w = abs($y - $x - $w - 1));
			$z += ($y - $x - 1);$x = $y;
		}
		print F2 $temp_IP, "\t$line\n";
	}
}
close F0; close F2;