Foro - Perl en Español

Hola, tengo un problema con el siguiente código. El problema es que no me devuelve los enlaces que le pido a las dos funciones. Probé sacando download_all() y hacer lo mismo y sí funciona, pero el problema es que cuando está en la función no devuelve nada.

¿ Alguien me podría explicar por qué?

use LWP::UserAgent;
use URI::Split qw(uri_split);
use HTML::LinkExtor;

my $nave = LWP::UserAgent->new;
$nave->agent( "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) ...

¿Saben dónde puedo encontrar el módulo Crypt?

Hola :D

Ahora me encuentro creando una base de datos en .txt


#Con esta función cuento las líneas que tiene el archivo.
sub GetLines
{
my $ARCH = shift;
my $lim;
open(DATA,$ARCH);
while (<DATA>)
{
$lim++;
}
close(DATA);
return($lim);
}

#Esta es la función que me daría el registro de la database.
sub do_bdd
{
my $lines = &GetLines("system/database/admins/listado.txt");
my $busca_bdd = lc($lectura);
my ...

Hola:

A ver si sé explicar mi problema.

Necesito recoger información de una web y lo hago mediante un post. Hasta aquí no tengo problema.

La información que necesito no me aparece en el código recogido con el método post.

Si entro en "Herramientas para desarrolladores" del IE veo el código que me devuelve Perl en la pestaña "SCRIPT", pero yo necesito información que veo en la pestaña "HTML".

Código en HTML:
<input name="recipientPostalCode" tabindex="5" ...

Hola amigos, yo molestando nuevamente.

Quiero exportar un archivo como módulo, el cual llevo trabajando.

Tengo lo siguiente

package BDD;

use lib 'system/modules'; # Se supone que así, selecciono el directorio que contiene los módulos
use parseChar; # este sería el módulo 'parseChar.pm'
sub GetBDD
{
my($registro,$Fichero,$Service,$user) = (shift,shift,shift,shift);
my $PunteroAFichero = &parseChar::GetCharsFile($Fichero); #Y esta es la subrutina del módulo
my $LimiteCadena;

open(BDD,$Fichero) or screen("$BOTS{\"$Service\") P $user :Error al acceder a la database\n"); ...

Hola;

¿Hay alguna forma de borrar el último carácter de la consola de salida cuando se está ejecutando el script?

Por ejemplo, si tenemos constantemente un script corriendo, ¿podemos escribir la hora en la consola de salida y cada x minutos que escriba la nueva hora pero borrando la anterior?

Gracias.

Agradecería si me pudiesen explicar cómo utilizar la función Format de Perl para crear reportes simples, cuyos datos provengan de una consulta a base de datos. ¿Es esto posible? ¿Cómo sería? ¡¡¡Gracias!!!

Hola amigos, yo de nuevo.
Tengo el siguiente problemilla:
if (($lectura eq "P") or ($lectura eq "PRIVMSG"))
{
if ($lectura)
{
print "Recibiendo $lectura\n";
$user = $NUMERICOS{$lectura};
@comando = split(/\:/,$lectura);
&queries();
}
}

sub queries
{
$co = uc($comando);
if ($lectura eq $n_preo)
{
print "He recibido privado dirigido a -> $lectura\n\n";
} else {
print "No he recibido nada, que pasara? -> $lectura $!\n\n";
}
}

Resulta que $! me devuelve que ...

Hola.

Quería consultar lo siguiente. Tengo un script que guarda código HTML de varias páginas. Lo que quiero hacer es guardar el código de cada página, cosa que más tarde pueda ejecutar el analizador que quiero hacer y no tener que descargar a cada rato las páginas para corregir cosas.

Lo que he estado haciendo es grabar cada página en un archivo dándole un nombre dinámico:

open my $fh, ">", "Pagina$.txt";
$i++;

Después leo ...

Hola, bueno, soy neófito en programación Perl y estoy buscando ayuda
para un trabajo que me exigen en la universidad.

Bueno, el programa tiene que calcular la esperanza, la varianza y la covarianza.

Se le pueden ingresar "n" números y para indicar el fin de la lista de números, hay que colocar un 0.

Bueno, ojalá me puedan ayudar.