Foro - Perl en Español

Ya está disponible la nueva versión estable de Perl, la v5.16.3.

La diferencia con la versión anterior es:

• Corrección del error de seguridad CVE-2013-1667: agotamiento de memoria por el uso de claves hash arbitrarias. El uso de determinadas claves podía provocar que un hash consumiera una gran cantidad de memoria y CPU, posiblemente consiguiendo una denegación de servicio.
  
• Arreglado el fallo que provocaba fallos de segmentación al leer o escribir cadenas ...

Hola, tengo un problema con esta parte de un programa. No me da ningún error, pero no hace lo que pretendo que haga:

my $fitxkopia;
open( my $FITX, $fitxategia );
{
local $/;
$fitxkopia = <$FITX>;

# $fitxkopia;
}
close $FITX;
&Hash_Taula_Kargatu($fitxkopia);

sub Hash_Taula_Kargatu {
my @term_arraya1;
my @term_arraya2;

my %Moten_Hash_Taula = (
"N.IZE-ARR" => \@term_arraya1,
"G.ADJ-ARR" => \@term_arraya2
);
my $fitxategia2 = $fitxkopia;
chomp($fitxategia2);
my $FITXkop = XML::XPath->new( filename => $fitxategia2 ); ...

Encontré este código en : http://www.ibm.com/developerworks/aix/l ... tkmodule3/ , el problema es que no explica cómo obtener el valor de cualquier fila.

use Tk::Table;
use Tk;

my $mw = MainWindow->new;
$mw->geometry("475x125");
$mw->resizable(0,0);
$mw->title("Table Example");

my $table_frame = $mw->Frame()->pack();
my $table = $table_frame->Table(-columns => 8,
-rows => 4,
-fixedrows => 1,
-scrollbars => 'oe',
-relief => 'raised');



foreach my $col (1 .. 8)
{
my $tmp_label = $table->Label(-text => ...

Buenas,

Los molesto porque quería consultarles si puedo usar "eval require" para llamar a una función externa.

Tengo un script el cual se está llenando de mucho código y me está haciendo difícil su lectura. Quería saber cómo puedo hacer para llamar a algunas funciones que se encuentren definidas en un archivo externo.

¿Debo definir las variables que se encuentran en la función externa, como globales en mi script?


Saludos

wxPerl renace con nuevas versiones de sitios web de apoyo a esta biblioteca, que enlaza Perl con la biblioteca gráfica wxWidgets GUI toolkit.

• wxPerl.it : blog, enlaces, noticias, comentarios, instrucciones...
  
• wxPerl wiki : Wiki

Hola. Quería preguntar qué formas habría de pasar un array a una variable normal. He visto formas que se hacen con join() pero quería saber si alguien conoce otras.

¿ Alguien conoce otra ?

Tengo una consulta.

Quiero lograr hacer que mientras estoy esperando la ejecución de un programa Perl, en la línea de comando me muestre algo como el progreso, algo así:
En ejecucion......................... 10%

De momento lo estoy haciendo de la manera troglodita :D Así:
system('clear');
print "En ejecución 0%\n";
$telnet->waitfor('/> /');
system('clear');
print "En ejecución 5%\n";
$telnet->print($con_tdm{"choice"});
system('clear');
print "En ejecución ...

Hola,

Quería saber si alguien conoce algún método para validar una IRI (RFC 3987) en Perl. O en su defecto, qué caracteres habría que pedir que no estuviesen presentes en la IRI. O algún documento donde esté explícitamente explicado.

Desde ya, muchas gracias.

Saludos.

Tengo un problema, de perlero nuevo :(. No sé por qué me da error el módulo DateTime::Format::Excel al pasar la columna fecha leída desde el Excel, pero le entrego una fecha puesta, por ejemplo, a '25999' y me entrega bien la fecha. Es cuando le paso la variable desde la lectura con el Spreadsheet::Read.

Acá el ejemplo completo sobre Linux, le puede servir a cualquiera...
#!/usr/bin/perl -w

use strict;
use Spreadsheet::Read;
use DateTime::Format::Excel; ...

Buen día. Tengo este inconveniente:

Tengo un socket server que envía un mensaje hacia un servidor que lo interpreta y devuelve otro mensaje de respuesta separando los campos por un enter (\n). Mi problema es que dependiendo de lo que devuelva el mensaje puede variar en tamaño, es decir, pueden venir "n" campos por consiguiente debo capturar cada dato en una variable diferente para luego yo interpretar dichos datos por ejemplo yo envío este mensaje. ...