Foro - Perl en Español

«RaGu tiene como intención el ayudar a los neófitos en el camino de comprensión de Perl. Y es que Perl es un lenguaje que necesita comprensión, y en dicho camino (cuál camino de sabiduría Zen) nos encontramos con CPAN.

CPAN es la herramienta básica para cualquier programador Perl. Se trata de un servicio de almacenamiento, distribución, etc … de módulos para Perl. Parafraseando al profesor que me enseñó Perl en la facultad: “antes de programar ...

«Webmin es una interfaz basada en web para la administración de sistemas para Unix. El uso de cualquiera de moderno navegador web, puede configurar cuentas de usuario, Apache, DNS, el uso compartido de archivos y mucho más. Webmin elimina la necesidad de editar manualmente los archivos de configuración como Unix /etc/passwd, y te permite manejar un sistema de la consola o de forma remota.»

Artículo

«Primero iniciaremos con lo básico sobre Perl

¿Qué es Perl?
Es un lenguaje de programación diseñado por Larry Wall en 1987. El cual toma características del lenguaje C, del lenguaje interpretado shell (sh), AWK, sed, Lisp y, en un grado inferior, de muchos otros lenguajes de programación.»

Artículo

¿Qué tal?

Espero me puedan ayudar con este pequeño problema.

Tengo una tabla en Oracle que guarda una serie de imágenes en campos tipo BLOB. La pregunta es ¿cómo puedo leer esta imagen y desplegarla en HTML?

Anexo pequeño código de lo que trato de hacer:
my $sth = $dbh->prepare("select image_id,Dbms_Lob.substr(image,dbms_lob.getlength(image),1) from image_container where image_id='TMSRP11885'");
$sth->execute();
my @res=$sth->fetchrow_array();
print header(-type=>'image/jpeg');

print $res;

$sth->finish;
$dbh->disconnect;

Saludos y espero puedan ayudarme.

Estoy intentando conectar un bot Perl al chat de justin.tv, pero necesito introducir la contraseña del usuario pero no sé cómo hacer que el bot se identifique.
:?

Tengo:
my $socket = IO::Socket::INET->new(
PeerAddr => "$servidor",
PeerPort => "$puerto",
Proto => 'tcp' ) || print("No hay conexión\.\n\cC");

He intentado poner Pass => "$key", pero no funciona.
El bot se conecta pero el servidor lo rechaza ...

«... hoy me gustaría destacar que recientemente ha salido en el diario El País, uno de los más leídos en español, un artículo donde se resumían los últimos avances en las técnicas de resolución de estructuras moleculares, que poco a poco parece que se van encaminando al estudio de moléculas individuales. El artículo original, muy interesante, es Destellos brillantes y ultracortos iluminarán la nueva biología estructural.
La verdad me sorprendió gratamente encontrarme en la prensa ...

Muy bonita...

«PDL ("Perl Data Language") le da a Perl la habilidad de almacenar de forma eficiente y manipular de forma muy rápida grandes matrices de datos multidimensionales, que son el pan y la mantequilla de la computación científica.»

Buenas tardes, necesito ayuda para resolver el siguiente problema:

Tengo un archivo con texto parecido al siguiente:

/XXXXXXXXXX/00:00/00:05
PCKT_RCVD/21039
BAD_HCHKSM/0
PCBS_FAIL/0
/YYYYYYYYYY/00:00/00:05
net0: IPKTS/22240
net0: IERRS/0
/ZZZZZZZZZZ/00:00/00:05
DISK_ALL/8391600
DISK_FREE/1524255

Tengo el siguiente código para que cuando se encuentre una línea que inicia con "/" y no cumpla con cierta condición todas las siguientes líneas sean ignoradas hasta encontrar una nueva línea que inicie con ese carácter y sea evaluada, y así sucesivamente. ¿Está correcto el ...

Tengo el siguiente script:

open (URLS, 'urls3.txt');
my @urls = <URLS>;
chomp @urls;
close(URLS);

open (PROXY, 'proxy.txt');
my @proxy = <PROXY>;
chomp @proxy;
close(PROXY);

for (my $i = 0; $i < @urls; $i++) {

print $urls,"::::"," PROXY: ",$proxy,"\n";

my $ua = LWP::UserAgent->new;

$ua->proxy(, "http://$proxy");
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
$ua->timeout(10);


my $req = HTTP::Request->new(GET => $urls);
$req->content_type('application/x-www-form-urlencoded');
my $response = $ua->request($req);


$result = $response->code();


open(ARCHIVO,">>libros.txt");
binmode ARCHIVO;
print ARCHIVO $result," ",$response->message( ...

Hola, probando un script (tarda bastante en ejecutarse, unos 10-20 segundos) veo que de una deja de funcionar si cambio una serie de parámetros (trabajando con librería GD, al trabajar con una imagen cada vez mayor).

¿Sabéis si por norma general un hosting (en mi caso 100WebSpace) tiene un parámetro como el maximun_execution_time de php.ini donde si estás más de 10 segundos, te tire?

¿Alguna opción para cambiar este parámetro?

Un saludo.