Foro - Perl en Español

Hola a todos.

No sé si es la sección adecuada aunque espero que así sea.

Estoy intentando utilizar la API de Windows a través del módulo Win32::API. Sé que no funciona con todas las funciones de la API pero por si acaso...

Ejecuto la siguiente instrucción con el fin de obtener el LUID del sistema:
$prueba = Win32::API-> new("advapi32.dll", "AllocateLocallyUniqueId", P);
print "prueba: $prueba\n";
y el resultado, es el siguiente:
prueba: Win32::API=HASH(0x16261b0)

Una duda es: ...

Hola amigos del foro: tengo archivos $altura.txt que tiene lo siguiente:

20080119 1000 0.0 24.80 21.19
20080120 1000 0.0 25.23 20.95
20080121 1000 0.0 24.76 21.31
20080122 1000 0.0 24.85 20.83
20080123 1000 0.0 24.69 19.92
20080124 1000 0.0 24.23 20.79
20080125 1000 20.2 23.46 21.18
20080126 1000 20.0 23.55 20.90
20080127 1000 16.4 24.02 19.97
20080128 1000 19.4 23.35 19.03
20080130 1000 18.4 23.04 19.54
20080131 1000 18.4 22.66 19.38
20080201 1000 17.8 22.35 ...

Hola, después de unas largas y muy largas vacaciones he vuelto a Perl, de donde no me he debí de ir, jajaja.

Un compañero de trabajo y yo estamos tratando de optimizar un script ya que consume mucha CPU pero no memoria. Disponemos de un equipo con una Intel Core Duo y 2Gb de RAM, y de RAM no consume más de 32mb. Necesitamos CPU para otros procesos, sobre todo para la BD que está ...

Hola,
Quisiera saber si es posible delimitar una cadena por medio de dos palabras, por ejemplo, dada la siguiente cadena imprimir solo lo que se encuentra entre las palabras "aqui" y "fin":

Lo que aqui se muestra no se debe de imprimir, pero lo que aqui se muestra si se debe de imprimir fin pero esto de aqui tampoco y esto de aquí también se deberá imprimir fin

De tal manera que lo que el ...

Hola muy buenas, estoy haciendo una aplicación no web y estoy utilizando la librería Gtk2 para hacer las interfaces gráficas. Me he leído algún tutorial de esta librería, y tengo algún problemilla en este código:

$entrada = Gtk2::Entry->new;
$entrada = Gtk2::Entry->new_with_max_length(40);
$texto = $entrada->get_text;
$boton = Gtk2::Button->new('Buscar');
$boton->signal_connect('clicked' => sub {&busqueda_parrafo_mas($texto); });

Pensaba que con la linea( $texto = $entrada->get_text;) recogía lo que el usuario introducía por pantalla, ya que luego quiero ...

Hola, estoy haciendo una aplicación no web con Gtk2 y uso
use Gtk2 '-init';

Como habéis podido ver no soy muy entendida en esto y ahora me ha surgido el problema de que quiero que mi aplicación le dé al usuario la posibilidad de cargar una carpeta para que pueda hacer su trabajo.

Quiero hacer lo típico de un cuadradito con un botón al lado que pone "browse" y te sale en el cuadradito ...

¡Hola!
Buenas,

Tengo dos preguntas que me gustaría saber si alguien puede ayudarme,

1) Tengo un script de Perl que despliega una GUI hecha con Win32::GUI y WIN32::GUI:Grid; en uno de los procesos estoy utilizando un ciclo infinito que va más o menos así:

while (1) {
if (condicion) {
$Grid->Refresh();
} else {
...
}
}

Como ven, dentro del if() estoy haciendo un $Grid->Refresh() para redibujar todas las celdas del Grid, pero no ...

Hola a todos,

Mi problema es el siguiente: estoy creando un formulario sencillo mediante HTML, con toda la validación correspondiente en JavaScript, para gestionar la configuración de un servicio. Básicamente necesito que al ejecutar el formulario me cargue datos del fichero de configuración (si existe previamente) y los coloque en los textbox del formulario. Una vez modificados esos campos, al hacer submit, el CGI, de nuevo, capta los datos y así actualiza el fichero. Algo ...

Buenas,

Antes que todo explicaré un poco lo que intento hacer. Supongamos la existencia de los siguientes ficheros:

caller.pl

#!/usr/bin/perl
use lib qw(.);
use strict;
use TEST;

my $t = TEST->new();
print $t->name;
print "\n";

TEST.pm

package TEST;

use vars qw($errstr $logfile)

BEGIN {
$errstr = '';
$logfile = '/tmp/test.log';
}

sub new {
my $class = shift;
my $name = shift or $class->_error("falta nombre");
my $self = {};
$self->{NAME} = ...

Hola,
Podrían decirme qué significa el error
"Inappropriate ioctl for device"
y el warning " Bad file descriptor"

Gracias de antemano
Leo21