Foro - Perl en Español

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

Amigos, seguro esta respuesta es muy fácil, pero no puedo resolverla; ayuda por favor:

El problema es contar cuántas líneas reúnen cierta condición, es decir, revisar en cuántas se cumple la condición "$ID eq $gift" y darme una cifra. Yo lo he hecho así, pero no creo que esté bien. Ayuda por favor. Gracias.

open(IN,"$gift_certificate_file");
while (<IN>) {
chomp;
@gift = split(/&&/,$_);
if ($ID eq $gift) {
$contador == 1;
}
$contador++;
}
close ...

¡¡Hola!!

Necesito una subrutina para parsear las anotaciones de un fichero GenBank. Tengo que pasar como argumento una variable donde se encuentran las anotaciones (que ya tengo), y lo que me tiene que devolver es un hash en el que las llaves sea los títulos de las diferentes secciones (locus, features...) y los valores los datos correspondientes a esa sección. ¿Cómo lo hago?

Necesito ayuda... Tengo un hash en el que almaceno una clave y un valor y al imprimirlo se puede ver por pantalla:

Code: Seleccionar todo

#Codon                           AA
GCT                              A
GCA                              A
GCC                              A
TGT                              C
TGC                              C
ATA                              I
ATC                              I

y bueno, es mucho más amplio.. Se observa, por lo tanto, que el valor me aparece ordenado alfabéticamente (A, C, D, E, F..) pero necesito ADEMÁS (necesito ambos) que el codon también aparezca ordenado (dentro de los ...

Hola quiero crear un combobox en el cual los datos de la lista sean números del 1 al 50. Lo quiero hacer en Perl y el caso es que no sé cómo hacerlo. ¿Alguien me puede ayudar? ¡Gracias!