Foro - Perl en Español

Foro Reloaded...
Mascota Reentered...

No podía permitir que este mensaje no apareciera en el foro.

Especialmente el primer programa del camello.

El programa no sirve para nada, pero el código y la salida son espectaculares.
#!/usr/bin/perl -w
use strict;
$_='ev
al("seek\040D
ATA,0, 0;");foreach(1..2)
{<DATA>;}my @camel1hump;my$camel;
my$Camel ;while( <DATA>){$_=sprintf("%-6
9s",$_);my@dromedary 1=split(//);if(defined($
_=<DATA>)){@camel1hum p=split(//);}while(@dromeda
ry1){my$camel1hump=0 ;my$CAMEL=3;if(defined($_=shif
t(@dromedary1 ))&&/\S/){$camel1hump+=1<<$CAMEL;}
$CAMEL--;if(d efined($_=shift(@dromedary1))&&/\S/){
$camel1hump+=1 <<$CAMEL;}$CAMEL--;if(defined($_=shift(
@camel1hump))&&/\S/){$camel1hump+=1<<$CAMEL;}$CAMEL--;if(
defined($_=shift(@camel1hump))&&/\S/){$camel1hump+=1<<$CAME
L;;}$camel.=(split(//,"\040..m`{/J\047\134}L^7FX"))[$camel1h
ump];}$camel.="\n";}@camel1hump=split(/\n/,$camel);foreach(@
camel1hump){chomp;$Camel=$_;tr/LJF7\173\175`\047/\061\062\063
45678/;tr/12345678/JL7F\175\173\047`/;$_=reverse;print"$_\040
$Camel\n";}foreach(@camel1hump){chomp;$Camel=$_;y/LJF7\173\17
5`\047/12345678/;tr/12345678/JL7F\175\173\047`/;$_=reverse;p
rint"\040$_$Camel\n";}#japh-Erudil';;s;\s*;;g;;eval; eval
("seek\040DATA,0,0;");undef$/;$_=<DATA>;s$\s*$$g;( );;s
;^.*_;;;map{eval"print\"$_\"";}/.{4}/g; __DATA__ \124 ...

He estado realizando un pequeño script, para leer los archivos de un directorio, y realizar un thumbnail de las imagenes "on the fly", pero no logro conseguirlo.

El modulo que estoy utilizando es GD, es necesario guardar las imagenes creadas en otro directorio, o se pueden crear los thumbnails sin necesidad de guardarlos.

Gracias, por la atencion y ayuda.

Ayuda a que el sitio de "Perl en Español" siga creciendo. Es muy sencillo y lo puedes hacer de tres distintas maneras:

Pide un tutorial Si tienes algún tema del cual no has encontrado un buen tutorial en español y crees que sería muy buena idea que exista un tutorial de ello en el sitio, dilo. Es bueno saber las necesidades de los programadores de perl, así podemos hacer tutoriales orientados a necesidades concretas.

Recomienda ...