Foro - Perl en Español

por **seguridadenmimail** » 2012-05-18 22:06 @962

Estimados, quería preguntarles cómo puedo acomodar de mejor forma este bucle ya que me parece que no es muy aceptable.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for my $host ($np->all_hosts()){
    for my $port ($host->tcp_ports()){
        my $service = $host->tcp_service($port);
        print $host->hostname."|".$host->ipv4_addr()."|".$port."|".$host->tcp_port_state($port)."|".$service->name."|".$service->product."|".$service->version."\n";
          }
for my $port ($host->udp_ports()){
        my $service = $host->udp_service($port);
        print $host->hostname."|".$host->ipv4_addr()."|".$port."|".$host->udp_port_state($port)."|".$service->name."|".$service->product."|"
        }
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Como ven tengo 2 "for" dependiendo el protocolo.

Saludos.

for my $host ( $np->all_hosts() ) {
    for my $port ( $host->tcp_ports() ) {
        my $service = $host->tcp_service($port);
        print join("|"
                  ,$host->hostname
                  ,$host->ipv4_addr()
                  ,$port
                  ,$host->tcp_port_state($port)
                  ,$service->name
                  ,$service->product
                  ,$service->version
              ), "\n";
    }
    for my $port ( $host->udp_ports() ) {
        my $service = $host->udp_service($port);
        print join("|"
                  ,$host->hostname
                  ,$host->ipv4_addr()
                  ,$port
                  ,$host->udp_port_state($port)
                  ,$service->name
                  ,$service->product
              ),"\n";
    }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **seguridadenmimail** » 2012-05-19 13:50 @618

Muchas Gracias.

Foro - Perl en Español

Consulta sobre bucle

Consulta sobre bucle

Publicidad

Re: Consulta sobre bucle

Re: Consulta sobre bucle

¿Quién está conectado?