• Publicidad

Fecha actual 2025-02-28 10:42 @487

News News of Foro - Perl en Español

Site map of Foro - Perl en Español » Foro : Foro - Perl en Español

La comunidad de programadores en Perl de habla-hispana.

Mostrar array cada 5

Hola, tengo el siguiente código.

use Shodan::WebAPI;

$your_key = "test";

$shell_shodan = new Shodan::WebAPI($your_key);
$resultados = $shell_shodan->search("probando");

@matches = @{$resultados->{'matches'}};

<stdin>; # por cada enter

# acá sería la cosa

for ( $i = 0; $i < $#matches; $i++ ) {
print "IP: $matches->{ip}\n";
print "$matches->{data}\n\n";
}

# acá termina xD



Mi plan es mostrar cada valor cada 5, o sea, que por cada <stdin> se muestren 5 informaciones nuevas hasta terminar el ...
Read more : Mostrar array cada 5 | Vistas : 1388 | Respuestas : 8 | Foro : Básico


Threads

Hola :)

Estoy necesitando ejecutar 'Threads' hilos para ejecutar procesos por separado, y hacer más fluido mi script, sé que en Java, por ejemplo, se pueden ejecutar rutinas en "background" como Servicios en Android, he leído que en Perl, también existe este método, pero no me aclaro aún.

Lo que me gustaría, sería un breve ejemplo de cómo se utiliza este módulo.


use threads;

my ...
Read more : Threads | Vistas : 1131 | Respuestas : 5 | Foro : Básico


Cuál es la mejor forma para leer CSV

Buenos días, compañeros, me presento nuevamente a este foro, debido a que presento un problema algo enredado del cual no he podido crear una solución, les trataré de explicar.

Tengo X cantidad de archivos CSV los cuales contienen 11 columnas de información, pero algunas columnas vienen algo así:
dato1,dato2,"dato3, dato extra que va siempre dentro del dato "3" algunas veces dentro del datoX vienen comas o bien comillas o saltos de línea ",dato4,etc.,etc.
O ...
Read more : Cuál es la mejor forma para leer CSV | Vistas : 1892 | Respuestas : 7 | Foro : Básico


Drivers para Ubuntu

De nuevo estoy con problemas con Ubuntu. Por eso quería preguntar si alguien sabia dónde conseguir los controladores para una ATI Radeon HD 5450 porque Ubuntu no me detecta la placa de vídeo y no puedo usar ningún efecto visual.
Read more : Drivers para Ubuntu | Vistas : 1314 | Respuestas : 3 | Foro : Pasando el rato


Problema con Socket -> INET a través de internet

Hola, perleros.

Estoy tratando de establecer una conexión a través de un socket y sólo me funciona con localhost. Al tratar de usar la IP para conectarme a otro ordenador, no funciona...

# en el servidor
my $socket1 = new IO::Socket::INET(
LocalHost => $ip,
LocalPort => '139',
Proto => 'tcp',
Listen => SOMAXCONN,
Reuse => 1);
# en el cliente
my $socket2 = IO::Socket::INET->new(Proto => "tcp",PeerAddr => $ip, PeerPort => "139");

Según estaba leyendo, ...
Read more : Problema con Socket -> INET a través de internet | Vistas : 964 | Respuestas : 2 | Foro : Básico


Cargar comando silencioso en Linux

Hola. Quería preguntar si hay alguna forma de cargar un comando silencioso en Linux. En Windows me acuerdo que podía. Con silencioso me refiero a que se ejecute pero que no muestre nada; en Windows lo hacía con algo así:
sub ejecutate {

my $job = Win32::Job->new;
$job->spawn(
"cmd",
qq{cmd /C $_},
{
no_window => "true",
stdout => "logx.txt",
stderr => "logx.txt"
}
);

$ok = $job->run("30");

¿ Cómo se podría hacer algo así ...
Read more : Cargar comando silencioso en Linux | Vistas : 1183 | Respuestas : 5 | Foro : Básico


Mostrar contenido de comando

Hola, estoy tratando de hacer un script que carga cierto programa como tcpdump y la idea es que el programa pueda capturar los resultados que manda tcpdump. Lo difícil o el problema es que normalmente he hecho esto con programas que terminan al momento, al contrario de tcpdump al que no se corta hasta que cargamos control + C.

¿ Alguien tiene idea de cómo capturar la respuesta del comando al momento ?
Read more : Mostrar contenido de comando | Vistas : 742 | Respuestas : 1 | Foro : Básico


Sniffer con tcpdump

Hola, estaba probando este código que sirve como sniffer que es muy viejo.
#!/usr/bin/perl

$LIMIT = shift || 5000;

$|=1;
open (STDIN,"/usr/sbin/tcpdump -lnx -s 1024 dst port 80 |");
while (<>) {
if (/^\S/) {
last unless $LIMIT--;
while ($packet=~/(GET|POST|WWW-Authenticate|Authorization).+/g) {
print "$client -> $host\t$&\n";
}
undef $client; undef $host; undef $packet;
($client,$host) = /(\d+\.\d+\.\d+\.\d+).+ > (\d+\.\d+\.\d+\.\d+)/
if /P \d+:\d+\((\d+)\)/ && $1 > 0;
}
next unless $client && $host;
s/\s+//;
s/({2})\s?/chr(hex($1))/eg;
tr/\x1F-\x7E\r\n//cd;
$packet ...
Read more : Sniffer con tcpdump | Vistas : 2647 | Respuestas : 11 | Foro : Básico


Sustitución y unless

Buenos días,

Necesito editar un texto de tal forma que elimine toda cadena de caracteres que aparezca entre corchetes, a excepción de ciertas cadenas. Por ejemplo, imaginemos el siguiente texto:

Hola, a manejar perl, y tengo muchos conocimientos

Imaginemos que quiero obtener este mismo texto pero sin las frases que aparezcan entre corchetes, salvo que esas frases incluyan las palabras "no" o "el". Es decir, debería obtener ...
Read more : Sustitución y unless | Vistas : 938 | Respuestas : 3 | Foro : Básico


Configurar teclado para Ubuntu

Hola. Estoy estrenando mi Ubuntu recién instalado y no sé cómo configurar el teclado porque la parte donde están los números a la derecha no anda nada ni los signos ni los números de la derecha.

¿ Alguien me puede explicar cómo los uso ?
Read more : Configurar teclado para Ubuntu | Vistas : 1784 | Respuestas : 5 | Foro : Pasando el rato


 

Identificarte  •  Registrarse


Estadísticas

Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981

cron