Foro - Perl en Español

Tengo el siguiente código

use HTML::LinkExtor;
use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

my $code = toma("http://www.taringa.net/posts/animaciones/4164567.R/Saint-Seiya-Mei_-Hades-ElysionHen_Campos-Eliseos_-Vol-10_11.html");

while($code=~/http\:\/\/lix.in\/(.*?) /ig) {
print $1."\n";
}

sub toma {
return $nave->get($_)->content;
}



Lo que quiero es poder capturar todos los enlaces como


http://lix.in/-612344
http://lix.in/-62a9e5
http://lix.in/-643086

Mediante una expresión regular para después guardarlo en un array.

¿ Alguien me puede ayudar ?

Hola.

Estoy intentando generar un script el cual realice en cascada una copia de un archivo cuando éste llegue a un tamaño definido.

Primeramente el script monitorea un equipo, si el equipo monitoreado se encuentra operando, éste envía una respuesta, la cual es almacenada en un archivo con la extensión log (realizado previamente por el script) todas las respuestas se guardan en este archivo, para no saturar el espacio del equipo donde se tiene guardado ...

¡Hola!

Estoy comenzando a usar expresiones regulares y estoy intentando hacer estos "ejercicios":

Palabras que:
- empiecen y acaben con la misma vocal
- acaben en vocal acentuada
- solo contengan la vocal 'u'
- con cuatro o más letras 's'
- contengan dos vocales

Para el primer caso:


foreach (@palabras){
if($_ =~ /^.$/){
print $palabra."\n";
}


Así me coge palabras como: uva, ira...

¿Cómo puedo hacerlo para que coja palabras que ...

Bienvenida a los foros de Perl en Español, Patricia.

El operador splice() se aplica a array. Y el array que estás modificando con splice() guarda las líneas leídas del archivo 'bacillus.adn', una línea por cada elemento del array.

Como vemos, el archivo no tiene 30 líneas, así que el efecto de splice() es "crear" un elemento 30 en el array, y meter ahí tu nombre. Por eso parece que sale "al final" (en realidad, los ...

¡¡¡Buenas tardes, Masters!!!

Es la primera vez que ingreso y, les soy sincero, de Perl no sé mucho. He trabajado con algunos scripts en Bash, pero a un 2%.

Mi problema es el siguiente: tengo un archivo LOG que va incrementando de acuerdo a un sistema automático de respaldos (Bacula). Necesito sacar ciertas líneas de este LOG y mandarlas a diferentes archivos (en base al nombre del usuario) para después mandarles por correo la información. ...

Estoy entrando en el mundo de Perl y estoy muy interesado en aprender al respecto del módulo Catalyst...

Hola. Tengo un problema con una expresión regular en la página http://es.thefreedictionary.com/.

Estoy tratando de sacar solo el primer significado pero el código no me devuelve nada.

#!usr/bin/perl

use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

my $page = "http://es.thefreedictionary.com/casa";

my $code = toma($page);

chomp $code;

#<div class="runseg"><b>1 </b>&nbsp; Edificio o parte de él donde viven una o más personas: ...

¿Algunos de ustedes podría darme alguna sugerencia de bibliotecas que exporten datos y generen gráficos a Excel así como WriteExcel de CPAN? Pero lo que deseo es que esa biblioteca pueda realizar gráficos 3D y también pueda colocarle la etiquetas de datos, lo más próximo a las que existen en Excel. Si es de pago, no importa.

Hola. Primeramente quiero saludarles a todos nuevamente.

Tengo un problema.

Considerando el siguiente código:

$salida->{$_}{'marca'} = 'adidas'

Luego haciendo un print(), o escribiendo en un archivo Excel, la salida es correcta: adidas.

print $salida->{$_}{'marca'};

Ahora viene el problema.

$salida->{$_}{'marca'} = sub { my $a = "adidas"; return $a}

Esto me retorna CODE(0xa303878)

He probado colocando un & pero tampoco resulta:

print &$salida->{$_}{'marca'};

Me dice:

Not a CODE reference at archivos/file.pl ...

Hola compañeros, a ver si alguien me puede ayudar. Con el siguiente script, quiero adjuntar unos 40 ficheros .dat en uno de solo. Pero no quiero que se guarden en una sola fila. Necesito que los datos de cada fichero (están por columna) se guarden por columnas separadas las unas de las otras en el fichero único. Tal como tengo el siguiente script, se guardan todas las columnas en una sola columna. ¿Alguien puede ayudarme? ...