Select Code to Download

port-state-service+IP-mem-list-direct.pl
port-state-service+IP-mem-hash-direct.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

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-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.p
+l

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

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-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.p
+l

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

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]/;
...
    print F2 $IP[$line_no - 1], "\t$line\n" if /[0-9]+\//; 
}
close F0; close F2;

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]/;
...

}
close F0; close F2;

die "perl port-state-service+IP-mem-array-delete-xtra-ARGV-line-IP-sta
+rt.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]/;
...
    $x = $y;
}
close F0; close F2;

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]/;
...
    print F2 $IP{$line_no - 1}, "\t$line\n" if /[0-9]+\//;
}
close F0; close F2;

die "perl port-state-service+IP-mem-hash-direct-delete-ARGV-line-IP-st
+art.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]/;
...
    print F2 $temp, "\t$line\n" if /[0-9]+\//;
}
close F0; close F2;

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]/;
...
    $x = $y;
}
close F0; close F2;

die "perl port-state-service+IP-mem-hash-indirect-ARGV-line-IP-start.p
+l <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]/;
...
    &idx;
}
close F0; close F2;

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]/;
...
    print F2 $IP[$line_no - 1], "\t$line\n" if /[0-9]+\//; 
}
close F0; close F2;

die "perl port-state-service+IP-mem-list-indirect-ARGV-line-IP-start.p
+l <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]/;
...
    &idx;
}
close F0; close F2;

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]/;
...
    }
}
close F0; close F2;

die "perl port-state-service+IP-mem-list-splice-xtra-ARGV-line-IP-star
+t.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]/;
...
    }
}
close F0; close F2;