Foro - Perl en Español

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

«Con sus 23 años, Perl es claramente uno de los lenguajes de programación más antiguos. Algunos incluso lo llaman un dinosaurio y que está muerto. Pero en el mundo de la programación no existe la muerte como tal, y la comunidad Perl es, actualmente, más fuerte que nunca.

Bueno. Asumamos que Perl era un dinosaurio que sobrevivió para dominar la cadena alimenticia. Seguramente sería un carnívoro devorando nítidas expresiones regulares, y las 20.000 distribuciones en ...

«Aprovechando uno de los días sin IVA de Mediamarkt, y teniendo en mente un cambio de TV (la anterior no tenía ni TDT integrada), volvimos a casa con una LG más moderna. Ya puestos, esta es algo más grande que la anterior, y como le confesé a Chema Alonso en la entrevista que me hizo, este año estará genial seguir la temporada de Fórmula 1 en el salón!

Según miraba la TV en Mediamarkt, me ...