Foro - Perl en Español

Hola, amigos del foro. Tanto tiempo, espero estén todos bien. Les cuento que tengo una matriz de 365x24 (días por hora) y quiero obtener dos promedios por mes, y como saben cada mes tiene diferente cantidad de días (la matriz está en días julianos), lo que he hecho me resulta a medias ya que solo guarda el último resultado, les muestro el script:

#!/usr/bin/perl -w

my %hash
= qw (1 15 16 31 32 ...

Ha salido una nueva versión de Perl v5.14: la v5.14.4, que corrige los mismos errores presentes en la v5.16.3, además de un error en List::Util.

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.