Foro - Perl en Español

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

Hola a todos...

Soy nuevo con Perl. Está excelente esta página.

Empecé a usar Perl porque necesito interactuar con un script de shell. El script es el instalador de una aplicación, y al ejecutarlo pide ingresar algunas opciones por teclado. Pero mi intención es que estas opciones se ingresen automáticamente.

Esto es lo que escribí:
#!/usr/local/perl -w

$linea = 1;
open(INSTAL,"|/root/Desktop/if_compiler/install.sh");
while(INSTAL && $linea<13)
{
print $linea;

if ($linea==1)
{ print INSTAL "1\n";}
if ...