Foro - Perl en Español

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

Buenas.

Estoy intentando hacer un script que me procese una serie de archivos que tengan la peculiaridad de que éstos empiecen por un patrón. Por ejemplo, arcivos que empiecen por 'AA'.

Estoy intentándolo con un if() que me hace la siguiente expresión regular: if (-f $file && $file =~ /\^AA*/ ) {

Por alguna razón esa expresión que pongo no me funciona.

¿Alguien me podría decir cuál sería la expresión regular correcta para que este ...

Hola.

Tengo esta situación: me conecto por Net::Telnet a un servidor y necesito traspasar un archivo.

¿Hay alguna manera para que desde mi equipo traspase vía Net::FTP utilizando la conexión que tengo abierta del Net::Telnet al servidor remoto?

El problema está que necesito el comando waitfor() para entrar en el ambiente donde tengo que alojar el archivo.

Espero que se entienda.

Saludos