• Publicidad

Sniffer con tcpdump

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

Re: Sniffer con tcpdump

Notapor explorer » 2014-01-12 15:56 @705

No tengo ni idea... pero podemos solventarlo si somos más prácticos.

El problema puede estar en los dos open(STDIN). Esos dos open() se hacen hacia STDIN porque luego viene un bucle while de lectura.

Bueno, pues es mejor usar otro gestor de archivos que no sea STDIN.

Cambia las líneas 33 y 64 para que usen dos nuevos gestores de archivo, que sean distintos de STDIN, y distintos, a su vez, entre sí. Por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1.     open(GET, "/usr/sbin/tcpdump -lnx -s 1024 dst port 80 |" );
  2.  
  3.     while (<GET>) {
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Naturalmente, debes poner también los close() al final de los bucles. No son imprescindibles, claro, pero sería más decoroso. Haces lo mismo para la línea 64, pero con otro nombre. Por ejemplo, POST.
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

Publicidad

Re: Sniffer con tcpdump

Notapor BigBear » 2014-01-12 16:05 @712

Genial, con ese consejo resolviste todo el problema. Gracias por la ayuda, explorer.
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Anterior

Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado

cron