• Publicidad

Consulta sobre bucle

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Consulta sobre bucle

Notapor 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
  1. for my $host ($np->all_hosts()){
  2.     for my $port ($host->tcp_ports()){
  3.         my $service = $host->tcp_service($port);
  4.         print $host->hostname."|".$host->ipv4_addr()."|".$port."|".$host->tcp_port_state($port)."|".$service->name."|".$service->product."|".$service->version."\n";
  5.           }
  6. for my $port ($host->udp_ports()){
  7.         my $service = $host->udp_service($port);
  8.         print $host->hostname."|".$host->ipv4_addr()."|".$port."|".$host->udp_port_state($port)."|".$service->name."|".$service->product."|"
  9.         }
  10. }
  11.  
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4


Como ven tengo 2 "for" dependiendo el protocolo.

Saludos.
seguridadenmimail
Perlero nuevo
Perlero nuevo
 
Mensajes: 69
Registrado: 2011-08-30 19:28 @853

Publicidad

Re: Consulta sobre bucle

Notapor explorer » 2012-05-18 22:23 @974

Poco se puede hacer... más bien, nada.

Solo cambiar las cosas un poco de sitio, pero no hay ganancia en las operaciones.
Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. for my $host ( $np->all_hosts() ) {
  2.     for my $port ( $host->tcp_ports() ) {
  3.         my $service = $host->tcp_service($port);
  4.         print join("|"
  5.                   ,$host->hostname
  6.                   ,$host->ipv4_addr()
  7.                   ,$port
  8.                   ,$host->tcp_port_state($port)
  9.                   ,$service->name
  10.                   ,$service->product
  11.                   ,$service->version
  12.               ), "\n";
  13.     }
  14.     for my $port ( $host->udp_ports() ) {
  15.         my $service = $host->udp_service($port);
  16.         print join("|"
  17.                   ,$host->hostname
  18.                   ,$host->ipv4_addr()
  19.                   ,$port
  20.                   ,$host->udp_port_state($port)
  21.                   ,$service->name
  22.                   ,$service->product
  23.               ),"\n";
  24.     }
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14486
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Re: Consulta sobre bucle

Notapor seguridadenmimail » 2012-05-19 13:50 @618

Muchas Gracias.
seguridadenmimail
Perlero nuevo
Perlero nuevo
 
Mensajes: 69
Registrado: 2011-08-30 19:28 @853


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados

cron