Foro - Perl en Español

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

Hola a todos,

Desde ya un millón de gracias por su ayuda. Les cuento: mi intención es simplemente obtener valores de frecuencia de aparición de un número que se encuentren en varios archivos y luego graficarlos. Por ejemplo, cuando TE = 1 se suma a la frecuencia de TE1, estoy trabajando con 8 TEs, de manera que al final quiero tener un gráfico de barras frecuencia versus TE1, TE2, TE3... etc. El problema es que ...

¡Hola!

Mi objetivo es generar gráficos de barra usando Perl. He leído el tutorial que habla acerca de eso, y estoy tratando de aplicar el ejemplo que aparece y no obtengo resultados. Instalé fink en mi Mac para bajar GD2, GD-lib y GD2-shlibs, corrí los ejemplos sin problema, pero el gráfico de barras no aparece como ejemplo. No he podido encontrar un tutorial de gráfico de barras para gd2. En su ejemplo usan GD, pero ...

Hola a todos,

Quisiera saber cómo puedo reinicializar el valor de la variable $FORMAT_LINES_PER_PAGE.
Yo quisiera reinicializarla pero no al comienzo de mi código sino más o menos a la mitad del mismo.

La variable $FORMAT_LINES_PER_PAGE es una variable del sistema; yo la quiero modificar porque ella me está generando un archivo de salida desde la mitad de la página y no desde el comienzo de la página.

Muchas Gracias
Leo21

Buenas,

¿Alguien sabe si existe alguna manera de evitar que se pueda acceder directamente a los métodos de una instancia?

Por Ejemplo:

test.pl

# Suponer que existe el módulo TEST
# y que la instancia posee los métodos new(sin parámetros)
# y GetName (Devuelve el nombre)
use TEST;
use strict;

my $t = new TEST;
my $nom = $t->GetName;
print "His name is $nom\n";

# Hasta aquí todo bien, a excepción de esto: ...