Foro - Perl en Español

Buenos días.

Un saludo a todos los miembros de la lista.

Mi problema es que tengo estos dos ficheros:
#!/usr/bin/perl

use strict;
use warnings;

use WWW::Curl::easy;
use WWW::Curl;

use Data::Dumper qw(Dumper);
$Data::Dumper::Sortkeys = 1;

use Plack::Request;

my $app = sub {

### Pasándole los valores desde línea de comandos
#shift;
#my $MARCA1 = shift;
#my $MARCA2 = shift;
#my $MARCA3 = shift;
#my $MARCA4 = shift;
#my $MARCA5 = shift;

### Pasándole los ...

Buenas tardes, nuevamente acudo a ustedes, compañeros, debido a que presento el siguiente inconveniente.

Desarrollé el siguiente script con un par de ejemplos, y todo bien; el único problema es que al descargar los archivos ".zip" al intentar abrir cualquier archivo (con winrar o winzip), me dice "Unexpected end of archive", y descargando el mismo archivo pero con filezilla no me da ningún inconveniente, y ambos son del mismo tamaño y extensión.

Aquí el script ...

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 ...

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 ...

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 ...

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.

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, ...

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í ...

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 ?

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 ...