Foro - Perl en Español

Primero quiero buscar o si existe algún script o módulo que me ayude en estas tres tareitas

1) Módulo o script de buscador. Mi página tiene un buscador donde las personas escribirán lo que quieren buscar, pero yo quiero que a un módulo le pueda pasar un contenido y una cadena de búsqueda y el me realice el trabajo de devolverme alguna coincidencia o algo de la búsqueda.

2) Módulo que dé similitud de una ...

Hola, ¿podría resumir esta función en Perl?

Es para eliminar los espacios al final de cada elemento de un hash

foreach my $key(keys %$dataF){
$dataF->{$key} =~ s/\s+$//g;
}
Quería dentro de un map{}, o si ya hay alguna expresión algo más rápida para hacerlo o por lo menos en una sola línea de código o más automatizada...

Es que eso procesará como cien mil registros dentro de un bloque, y los hash pueden contener ...

Hola. Primero me quiero presentar. Soy Sebastian, de Argentina.

Les comento que tengo un problema con un script. Él mismo es un trabajo que debo presentar en un examen y ahora que me siento a mirarlo es más complicado de lo que pensaba. Dejo el punto que más se me complica, tal vez alguien ya lo tenga o para otros sea más sencillo. Desde ya, muchas gracias.

13) (porcentajesDeUtilizacion.pl) Que muestre el porcentaje del disco ...

«RPerl es un lenguaje de programación, basado en el popular lenguaje de programación Perl 5. RPerl ofrece a los desarrolladores de software un compilador para hacer que sus aplicaciones se ejecuten de forma rápida en plataformas de computación en paralelo, como por ejemplo los procesadores multi-núcleo, la nube, clústers y supercomputadores. RPerl significa Perl Restringido, referido a la restricción de nuestro uso de Perl a aquellas partes que pueden ser aceleradas. RPerl también significa Perl ...

Hola, estoy usando expresiones regulares para capturar cierto contenido en una página de torrents. La regex que estoy usando es esta:
if($code=~/<a href="(.*?)" title="Download this torrent using magnet"><img src=(.*?)><font class="detDesc">(.*?)<\/font><\/td><td align="right">(.*?)<\/td><td align="right">(.*?)<\/td>/mig) {
print $1;
}
El contenido de $code es este:
<a href="/torrent/9254599/Batman.Arkham.Trilogy-R.G._Mechanics" class="detLink" title="Detalles para Batman.Arkham.Trilogy-R.G. Mechanics">Batman.Arkham.Trilogy-R.G. Mechanics</a>
</div>
<a href="magnet:?xt=urn:btih:e923a34e95e267c6ae6ff4766deb3b4729a4a350&amp;dn=Batman.Arkham.Trilogy-R.G.+Mechanics&amp;tr=udp%3A%2F%2Ftracker.openbittorrent.com%3A80&amp;tr=udp%3A%2F%2Ftracker.publicbt.com%3A80&amp;tr=udp%3A%2F%2Ftracker.istole.it%3A6969&amp;tr=udp%3A%2F%2Ftracker.ccc.de%3A80&amp;tr=udp%3A%2F%2Fopen.demonii.com%3A1337" title="Download this torrent using magnet"><img src="/static/img/icon-magnet.gif" alt="Magnet link"></a><a href="/user/Taker009"><img src="/static/img/trusted.png" alt="Trusted" title="Trusted" style="width:11px;" border="0"></a><img src="/static/img/11x11p.png">
<font class="detDesc">Subido Hoy&nbsp;05:05, Tamaño ...

Hola,

Por favor, necesito ayuda en lo siguiente:

Estoy trabajando con un CPE ADSL y estoy tratando de actualizar la versión de FW mediante FTP por la LAN, con el script es posible establecer la sesión FTP sin problema, pero en la línea de ingreso del comando $ftp-> put(('NUR4MQ012.bin') me arroja un mensaje: Unknown command PASV desde la consola.

He intentado con
$ftp = Net::FTP->new($host, Debug =>0, Passive=>1)
$ftp->put_Passive(1)

Estoy utilizando S.O. Ubuntu, el FTP ...

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