Foro - Perl en Español

por **BigBear** » 2010-04-28 18:49 @826

Hola.

Quería preguntar si alguien conoce alguna manera de conectarse a un puerto mediante sockets, lo que pasa es que solo quiero que lo verifique por 0.1 segundos para no estar esperando que el socket tarde en responder y así ver otros puertos.

¿Alguien me podría ayudar?

use IO::Socket;
 
$port = "0";
 
for (1..9999) {
$port++;
   
      my $sock = IO::Socket::INET->new(
 
          PeerAddr => 'localhost',
 
          PeerPort => $port,
   
          Proto    => 'tcp',
 
          Timeout  => 0.5
  
      );
 
if ($sock) { print "ok\n"; } else { print "mal\n";}
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

El escáner sigue igual de lento pasando de puerto en puerto a la misma velocidad.

por **explorer** » 2010-04-29 17:30 @771

Con ese programa

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use IO::Socket;
 
for $port (0..9999) {
 
    my $sock = IO::Socket::INET->new(
 
        PeerAddr => 'localhost',
 
        PeerPort => $port,
 
        Proto    => 'tcp',
 
        Timeout  => 0.5
 
    );
 
    if ($sock) { print "$port ok\n"; } # else { print "mal\n"; }
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

me tarda exactamente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

dv9210:~ # cat /proc/cpuinfo 

processor       : 0          

vendor_id       : AuthenticAMD

cpu family      : 15          

model           : 104         

model name      : AMD Turion(tm) 64 X2 Mobile Technology TL-60

stepping        : 2                                           

cpu MHz         : 800.000                                     

cache size      : 512 KB                                      

physical id     : 0                                           

siblings        : 2                                           

core id         : 0                                           

cpu cores       : 2                                           

apicid          : 0                                           

initial apicid  : 0                                           

fpu             : yes                                         

fpu_exception   : yes                                         

cpuid level     : 1                                           

wp              : yes                                         

flags           : fpu vme de pse tsc msr pae mce cx8 apic sep mtrr pge mca cmov pat pse36 clflush mmx fxsr sse sse2 ht syscall nx mmxext fxsr_opt rdtscp lm 3dnowext 3dnow rep_good extd_apicid pni cx16 lahf_lm cmp_legacy svm extapic cr8_legacy 3dnowprefetch                                                                                                              

bogomips        : 1607.06                                                                                                 

TLB size        : 1024 4K pages

clflush size    : 64

cache_alignment : 64

address sizes   : 40 bits physical, 48 bits virtual

power management: ts fid vid ttp tm stc 100mhzsteps

processor       : 1

vendor_id       : AuthenticAMD

cpu family      : 15

model           : 104

model name      : AMD Turion(tm) 64 X2 Mobile Technology TL-60

stepping        : 2

cpu MHz         : 800.000

cache size      : 512 KB

physical id     : 0

siblings        : 2

core id         : 1

cpu cores       : 2

apicid          : 1

initial apicid  : 1

fpu             : yes

fpu_exception   : yes

cpuid level     : 1

wp              : yes

flags           : fpu vme de pse tsc msr pae mce cx8 apic sep mtrr pge mca cmov pat pse36 clflush mmx fxsr sse sse2 ht syscall nx mmxext fxsr_opt rdtscp lm 3dnowext 3dnow rep_good extd_apicid pni cx16 lahf_lm cmp_legacy svm extapic cr8_legacy 3dnowprefetch

bogomips        : 1607.06

TLB size        : 1024 4K pages

clflush size    : 64

cache_alignment : 64

address sizes   : 40 bits physical, 48 bits virtual

power management: ts fid vid ttp tm stc 100mhzsteps

dv9210:~ # uname -a

Linux dv9210 2.6.31.12-0.2-desktop #1 SMP PREEMPT 2010-03-16 21:25:39 +0100 x86_64 x86_64 x86_64 GNU/Linux

dv9210:~ # perl -v

This is perl, v5.10.0 built for x86_64-linux-thread-multi

Copyright 1987-2007, Larry Wall

...

dv9210:~ # time /home/explorer/Documentos/Desarrollo/code_21913.pl

25 ok

111 ok

631 ok

8010 ok

real    0m8.156s

user    0m4.012s

sys     0m1.184sColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

8 segundos.

por **BigBear** » 2010-04-29 19:17 @845

¿Cómo puede ser? A mi no tarda todo el código 8 segundos. Yo estoy usando un Windows. ¿Me podes explicar cómo puede ser eso?

por **explorer** » 2010-04-30 03:20 @181

Hará unos tres años se descubrió que el Perl de ActiveState, para Windows, estaba horriblemente compilado, haciendo que un bucle tan sencillo como este

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for(1 .. 100_000){
$x.=(q[x] x 1_000);
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

(generar una cadena de cien millones de 'x', en bloques de mil), tardara 40 centésimas de segundo en un ordenador con Linux, mientras que en un ordenador, idéntico, con Windows, tardara 20 minutos.

Una de las razones fue el compilador usado, que gestionaba de forma fatal la memoria reservada. El jefe lo vio claro y mandamos a todos los Windows por la ventana (redundancia).

Como no uso Windows, no sé decirte si eso está arreglado o no, pero tampoco creo que sea la causa.

Sospecho que el verdadero responsable puede ser Windows, y quizás los permisos de tu usuario para poder acceder a los puertos. Y si tienes instalado el cortafuegos de Windows o o un antivirus con cortafuegos, pues más leña al fuego.

En las páginas de Microsoft puedes encontrar más pistas. Por ejemplo, en ésta se comenta que la relantización se produce al crear sockets en modo bloqueante.

Si esa es la causa, podrías agregar la opción

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    Blocking => 0,
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

para que las conexiones no sean bloqueantes, como sí lo hace IO::Socket::INET, por defecto.

Foro - Perl en Español

Timeout en una conexión socket

Timeout en una conexión socket

Publicidad

Re: Timeout en una conexión socket

Re: Timeout en una conexión socket

Re: Timeout en una conexión socket

Re: Timeout en una conexión socket

Re: Timeout en una conexión socket

Re: Timeout en una conexión socket

Re: Timeout en una conexión socket

¿Quién está conectado?