Select Code to Download

<port protocol="tcp" portid="139"><state state="open" reason="syn-ack"
+ reason_ttl="64"/><service name="netbios-ssn" method="table" conf="3"
+/></port>
<port protocol="tcp" portid="445"><state state="open" reason="syn-ack"
+ reason_ttl="64"/><service name="microsoft-ds" method="table" conf="3
+"/></port>
<port protocol="tcp" portid="1984"><state state="open" reason="syn-ack
+" reason_ttl="64"/><service name="bigbrother" method="table" conf="3"
+/></port>

my $fct_openPort = (join ',',$fct_host_obj->tcp_ports('open'))."\n" ;
my @fct_ports = split ',', $fct_openPort;
...
  print "port             : $fct_port \n" ;
  print "service and port = $fct_port:$fct_service \n" ;
}

service          : netbios-ssn 
port             : 139 
...
 
service and port = 1984
: