Foro - Perl en Español

¡Saludos!

Estoy haciéndome un pequeño script para que me saque mi "tendencia" a la hora de navegar. Para ello, la mejor idea que se me había ocurrido era utilizar la base de datos SQLite que guarda el historial en Firefox y a partir de ahí sacar las 25 páginas más visitadas ordenadas por frecuencia. Esto que a priori sería lo difícil, ya lo tengo hecho.

Mi problema reside en que dicha base de datos reside ...

¿ Alguien me podría decir por qué se da este fallo en un script ?

Wide character in print at ./test.pl line 236.

En esa línea hay un bucle for() que recupera e imprime datos de un archivo XML.

He intentado poner codificación:
# -*- coding: utf-8 -*-
<?xml version="1.0" encoding="utf-8" ?>

Al principio del script y en el documento xml también pero me sigue saliendo el error.

Estaría agradecido si alguien me ...

Tengo que hacer un programa que me ordene unos números, pero ocurre que el búcle solo lo realiza una vez. Es decir, introduzco los números 3, 2 y 1 y me los ordena como 2, 1, 3.

No encuentro el fallo. A ver si alguien puede ayudarme a verlo.

Esta es la parte del código que creo que falla:
$b = 1;
$c = 0;
while ( $b < $n ) {
while ( ...

Hola, tengo un problema que, la verdad, no sé cómo resolverlo.

Tengo un script que lanza en una base de datos PostgreSQL una función que da las siguientes salidas:

01: Fichero no encontrado :/data/interfaces/salida/
o
00: El proceso ha finalizado Ok

Dependiendo de un código u otro, pues tengo que hacer una serie de cosas.
En un principio, estos códigos los saco con la siguiente subrutina:

my @r_tpfr_descargavisitas = &consultabbdd ($nombrebbdd,$dbhost,$dbuser,$dbpass,$consulta);

El resultado lo almaceno ...

Me pregunto si alguien tendría la amabilidad de decirme por qué no puedo volcar un archivo de una página web en local.

Sé que lo podría hacer con el método getstore() del módulo LWP::Simple... pero por circunstancias no puedo utilizarlo y necesito el código crudo HTML.

He intentado lo siguiente pero no me funciona.
use LWP::UserAgent;

my $ua = new LWP::UserAgent(
agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5',
); ...

Hola, soy nuevo en el foro y novato con el lenguaje Perl. Tengo que hacer una tarea de elaborar un organigrama y un programa en Perl.

Mi problema es el siguiente: he hecho el programa en Perl como he podido, pero no soy capaz de transcribirlo a un organigrama y me habían comentado que existen programas en los que introduces el código y te lo transforma en un organigrama... ¿Saben cuáles son estos programas??? ¡¡¡Es ...

Tengo el siguiente código:

use IO::Socket;

my $socket = new IO::Socket::INET(
LocalHost => 'localhost',
LocalPort => '8080',
Proto => 'tcp',
Listen => SOMAXCONN,
Reuse => 1);

my ($cliente,$buff,$kid);

while ($cliente = $socket->accept())
{
next if $kid = fork;

while(<$cliente>) {
$data.=$_;
}

print $data;

}

Me gustaría recibir la información en una sola variable porque no quiero usar el while(). Intenté usando $data.= de esta forma para poder mostrarlo después del while(), pero no ...

Hola, tengo el siguiente script:

use LWP::UserAgent;
my $ua = new LWP::UserAgent;

$ua->agent('Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12');

my $response = $ua->get("http://www.supertangas.com");

print $response->headers();
#print $response->header('content-type');


El problema es que en la información que consigo de las cabeceras no encuentro el useragent que es lo que busco para mostrar en pantalla.

¿ Alguien sabe cómo conseguirlo ?

Tengo un problema al pasar a exe este script con perl2exe. El problema es que no se carga el segundo archivo cuando lo paso a perl2exe usando la opción -gui del mismo. Cuando no lo cargo en exe sí andan los dos archivos. El código es el siguiente:

use Win32::Job;


cargar_hide("coraje_uno.jpg");
cargar_hide("holamundo_dos.exe");


sub cargar_hide { # nombre de la función marcada anteriormente

my $job = Win32::Job->new;

$job->spawn( "cmd", qq{cmd /C $_}, { no_window => ...

Hola, perleros. Tengo un problema con el siguiente código para transferir ficheros de mi disco duro a un servidor remoto.

Quiero pasar todos los ficheros .htm que se encuentran en el directorio de mi ordenador /home/enric/htm al servidor (dispongo del nombre, usuario y contraseña).

Aquí va el código:
#!/usr/bin/perl -w

use strict;
use Net::FTP;

my $username = "meteoxx.com";
my $pwd = "xxxxx73";

my $ftp = Net::FTP->new("xxx.xx.132.xxx", Debug => 0) or die("No se pudo conectar ...