Foro - Perl en Español

¡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!

Hola, aquí estoy de nuevo con un nuevo cuestionamiento, en el que busco de nuevo su ayuda.

Resulta ser que tengo sistema web que administra una página, es decir, un CMS, y pues en la página principal tengo una sección donde se registran usuarios queriendo ser parte del equipo, total, al registrarse un usuario, mi aplicación envía un correo al administrador con la dirección a donde se tiene que ingresar para activar ese usuario.

El ...

De primeras, enhorabuena por la página y gracias por toda la ayuda.

Tras esto, perdón por si el mensaje no es tipo básico pero lo escribo aquí ya que este se asemeja con el nivel de conocimiento que tengo.

La situación es la siguiente: me dispongo a crear un servidor con sockets; con más o menos problema estoy siguiendo la lectura de los libros y artículos que otras veces se han comentado. Mi duda es ...