Foro - Perl en Español

Hola a todos, estoy terminando de escribir un script y me he topado con el siguiente problema: en uno de los directorios donde necesito ejecutar una llamada al sistema, tengo un archivo extra y deseo eliminarlo: sé que siempre es el último y los archivos están numerados 1, 2, 3..., n, algo así:
fig-1.pdf,fig-2.pdf,fig-3.pdf,fig-4.pdf,fig-5.pdf
¿Cómo recorro el directorio para eliminar solo el último de los archivos?

De antemano, muchas gracias.
Pablo

Sres., estoy generando un anexo técnico en formato Word pero necesito insertar unas imágenes y no me funciona tal como sale en http://search.cpan.org/~dami/MsOffice-Word-HTML-Writer-1.01/lib/MsOffice/Word/HTML/Writer.pm.

Si alguien lo ha hecho, ¡¡¡ favor orientenme !!!

Saludos.

:D

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

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