Foro - Perl en Español

Hi.
Primero que nada felicitar por gran foro¡
Bueno ya he estado casi un día entero para ver el porqué de mi problema o en qué me estoy equivocando... espero que me ayuden :=)

Quiero hacer un Programa en Perl claro, en donde uno pueda subir las imágenes automáticamente, vía Post. (es un Formulario el Upload)

Contenido del Post cuando subo una imagen:

Code: Seleccionar todo

-----------------------------2249721855655\r\n
Content-Disposition: form-data; name="upfile_0"; filename="idea_bulb_400.jpg"\r\n
Content-Type: image/jpeg\r\n
\r\n
ÿØÿà

Gracias a Request ...

Hola de nuevo, estoy haciendo un programa que me genera un archivo y como este finalmente pesa mucho necesito comprimirlo y que quede en formato zip, he utilizado la librería Archive::Zip, y el programa me crea el archivo .zip pero no está agregando el archivo que necesito que comprima, es decir, al final me crea un archivo zip ¡¡pero vacío!! :( , aquí adjunto el código que ...

Saludos, con una molestia, necesito hacer un programa que busque texto dentro de una imagen tif, debido a que contamos con más de 2 millones de imágenes está difícil hacerlo a mano, ¿alguien sabe de alguna función o alguna manera de hacerlo en Perl? :shock:

Dentro de poco... primer Spanish Perl WorkShop

¿Te interesa?

Veréis, tengo la siguiente duda:

Estoy haciendo una web que utiliza un programa hecho en Perl situado en mi servidor web.

El caso es que ese programa en Perl recibe un parámetro (obtenido mediante un textarea de la página) y lo trata.

He probado a hacer un pequeño programa en Perl de prueba, y utilizando la función exec en PHP he conseguido ejecutarlo enviándole el parámetro del textarea.

Pero sin embargo mi programa grande (que ...

Bueno tratando de hacerme un sencillo chequeador de URL, escribí el siguiente código.

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;
use HTTP::Request;
use Parallel::ForkManager;

print "Trabajando...\n";
my $archivo_links = $ARGV;
chomp($archivo_links);
open LINKS,"$archivo_links" or die "No se encuentra el archivo.... \n";
my @links = <LINKS>;
close(LINKS);

my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
my $timeout = 30;
my $bots = 5;
my $start = 0;
my $pm = new Parallel::ForkManager($bots);
open CODE, ...

Para aquellos nostálgicos del famosísimo libro Programming Perl, y que no lo tengan, que sepan que en estos momentos se está subastando en eBay.

Es una edición de 1996, en inglés, prácticamente nuevo. El vendedor está en Barcelona.

Y para los que quieran la última versión, decirles que la tercera edición del libro, del año 2000, aún se vende, como aquí en BookPool.

Y para los que quieren estar al día, hace poco que ha ...

¡Saludos a todos desde México!

Estoy empezando con Perl y estoy batallando mucho con este programita. :roll:
Tengo dos archivos de texto con el siguiente formato,
Archivo1.txt

Code: Seleccionar todo

AC000000000   0   0
AC100000000   0   0
AC1100KLP00   19   51.72
AC3030GEN15   7   30.91
AC4015GEN04   11   4.83
AC4017GEN04   0   4.41
AC4017GEN05   24   5.54
AC5001GEN05   66   6.68
AC5002FPC09   15   28.78
AC5002GEN05   16   8.88
AC5003GEN00   6   6.11
AC700000000   0   0

Archivo2.txt
AC1100KLP00 761.91 ...

Bueno lo que necesito hacer es algo muy sencillo, pero al mismo tiempo no doy con la solución.

Tengo dos array:
my @animales = ('perro', 'gato', 'gallina', 'tortuga', 'salmon', 'caballo', 'burro', 'leon', 'buitre', 'camaleon', 'loro', 'mono', 'piraña');

my @color = ('rojo', 'gris', 'verde', 'azul');

Lo que trato de hacer es construir un nuevo array, de forma que el primer elemento de @animales se combine con el primer elemento del array @color, de forma que queda ...

Buen día, perleros, tengo una duda.

Hace poco instalé el SQL Navigator y su cliente de Oracle, pero no logro conectarme a la BD.
Me sale este error:
oci.dll found
2) Oracle Home Key is SOFTWARE\ORACLE
Looking for TNS_ADMIN environmental variable
TNS_ADMIN environmental variable doesnt exist,
looking for TNS_ADMIN reg key using home key: >SOFTWARE\ORACLE<
TNS_ADMIN does not exist in SOFTWARE\ORACLE
looking for TNS_ADMIN reg key in \Oracle: >SOFTWARE\ORACLE<
Looking for OracleHomeKey\ORACLE_HOME
Oracle Path is ...