Foro - Perl en Español

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

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

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

Estoy queriendo generar un archivo PDF, pero que se genere en memoria y se abra al usuario desde allí, sin necesidad de guardarlo a disco y luego abrirlo desde disco. ¿Cómo se haría, qué me está faltando? Se me abre una ventana de archivo PDF, pero en blanco, vacío.

use PDF::API2;

# Create a blank PDF file
my $pdf = PDF::API2->new( \*STDOUT );

print "Content-type: application/pdf\n\n";
print "\n";

# Add a blank page
my ...

Hola, amigos del foro, estoy trabajando en un pequeño script... y tengo algunas dudas con las expresiones regulares que estoy usando. Va así:

Tengo ficheros de entrada de las siguiente formas (LaTeX)

\documentclass{article}
\usepackage{pstricks-add}
\newenvironment{postscript}{}{}
\begin{document}
Los entornos pstricks se inician \verb|\pspicture(argumento) o \pspicture*(argumento)| para plain TeX
y \verb+\begin{pspicture} o \begin{pspicture*}+ para LaTeX, antes o después de cada entorno, es necesario
definir \verb'\psset{opciones}' por ejemplo:
\verb+\psset{opciones}\begin{pspicture}+ o \verb-\begin{pspicture}\psset{opciones}- y para cerrar los entornos ...