Select Code to Download

die "perl citrix-enum-apps-xml-PORT-STATE-SERVICE+IP-disk.pl <INPUT_FI
+LE_ports> <INPUT_FILE_IP> <OUTPUT_FILE> " if $#ARGV < 2;

...
}
close F0; close F1; close F2;

while (<F1> && $line_stop++ < $line_no) { s/\r\n//;print $_; }

3        PORT    state    protocol
3        80/tcp   closed http
...
5        80/tcp   open     http
5        443/tcp  filtered https
5        8080/tcp filtered http-proxy

1.0.129.197
1.0.131.49
...
1.0.138.143
1.0.138.154
1.0.139.72

1.0.131.74        80/tcp   closed http
1.0.131.74        443/tcp  closed https
...
1.0.138.154        80/tcp   open     http
1.0.138.154        443/tcp  filtered https
1.0.138.154        8080/tcp filtered http-proxy