Foro - Perl en Español

Hola, estoy haciendo un script que genera palabras para formularios POST.
El problema es que los genera en una variable normal. Un ejemplo de cómo
queda es así:


#!usr/bin/perl

use LWP::UserAgent;

my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

my $tengo = qq({"probar" => "test","probarx" => "et","control" => "mandar"});
print $nave->post("http://localhost/test/a.php",$tengo)->content;


Soy consciente de que sacando qq() el método POST lo va hacer bien pero
el ...

Desarrollo aplicaciones que se ejecutan en entornos web usando módulo CGI y Fast CGI. Me gustaría saber qué módulos me recomendarían para el diseño de las interfaces de usuario, la generación de formularios HTML, menúes, botones, etc, pero siempre tratando de lograr una sintaxis prolija en Perl.

¡¡ Agradecido !!

Hola.

¿Cómo hago para hacer esto? Probé todos los tutoriales pero ¡no atino con la sintaxis!

El caso es que quiero hacer esto:
1.- resguardarImagen(), que no reciba parámetros

2.- Crear una imagen (usando partimage) de una partición determinada (pasada como parámetro) y la almacene en ~/imgs/

3.- Mantener en ~/imgs/ solo las últimas 3 imágenes creadas... Si en ese directorio ya hubiesen 3 imágenes el script deberá eliminar la imagen más vieja.

¿Cómo hago? ...

Es solo una duda básica, porque yo solo conozco esta forma de abrir un archivo y obtener todo su texto:

open(FILE,"test.txt");
my @wor = <FILE>;
close FILE;


Pero mi duda es ¿qué otras formas de abrir archivos y hacer lo mismo, solo que en vez de guardar el resultado en un array lo guarde en una variable común?

¿ Alguien sabe a lo que me refiero ?

Necesito crear un hash con la siguiente estructura


tengo1 => aca1 => "test"
aca2 => "test"
aca3 => "test
aca4 => "tipo" => "uno"
=> "tipo1" => "dos"

tengo2 => aca1 => "test"
aca2 => "test"
aca3 => "test
aca4 => "tipo" => "uno"
=> "tipo1" => "dos"


El problema es no lo quiero hecho sino que necesito entender cómo hacerlo paso a paso.

¿ Alguien me puede ayudar ?

Hola. Tengo un problema con el resultado final de mi código:

#!/usr/bin/perl

use strict;
use warnings;

use utf8;
use locale;
use open OUT => ':locale';

use Net::SSH::Expect;

my $ssh = 'Net::SSH::Expect'->new(

host => 'mihost',
password => 'contrasena',
user => 'usuario',
port => 23,
raw_pty => 1
);

my $login_output = $ssh->login();
if ( $login_output !~ /Welcome/ ) {
die "Login has failed. Login output was $login_output";
}

$ssh->exec("stty raw -iutf8");
$ssh->exec("stty raw -echo");

print ...

Tengo un problema con este módulo porque no puedo usarlo para parsear un archivo, porque lo que quiero es abrir el contenido de un archivo html local y guardarlo en una variable para después usar este módulo, pero este modulo requiere combinar el uso de LWP:UserAgent y no es lo quiero.

use HTML::Form;

$texto = "<form> bla bla bla"; # contenido de algún archivo

my @test = HTML::Form->parse($texto);

print $test->method."\n";


¿ Alguien me ...

Estimados:

Busqué en el foro alguna forma de descargar un archivo Excel, y encontré Esto.

Lo modifico para poder descargar un .xls, ya que el .csv retorna una tabla con comas. Esto lo logro utilizando Spreadsheet::Write.

print "Content-Type:application/vnd.ms-excel; name=prueba.xls\r\n";
print "Content-Disposition: attachment; filename=prueba.xls\r\n\n";

my $aux;

open( FILE, "</tmp/prueba.xls");
while($aux=<FILE>)
{
print("$aux");
}

El problema es que no aparece nada en el archivo Excel, todo vacío. He probado montones de formas, pero nada :s. No ...

Gente,
Los molesto para consultarles si conocen algún dumper, donde yo pueda pasarle un string y que éste me entregue los resultados de pastebin.

Me hice uno con Google pero quería usar en realidad el search de Pastebin.

Saludos.

Los Bancos, siempre intentando incrementar sus beneficios, piden a los expertos programadores por un sistema que pueda leer cheques de banco; esto haría el procesado de cheques mucho más barato. Uno de sus ideas era usar reconocimiento óptico de caracteres (OCR) para reconocer cuentas de bancos impresos usando segmentos de 7 líneas.

Una vez que el cheque ha sido escaneado, otro software de procesado de imagen convertirá las barras verticales y horizontales a barras '|' ...