Foro - Perl en Español

Hola.

Tengo que hacer un programa que dada una secuencia de ADN en un archivo EMBL, y una posición de inicio y fin sobre ésta, me traduzca por codones a proteína.

A partir de aquí debo calcular el número efectivo de codones utilizados.

Tengo un módulo hecho con las subrutinas utilizadas, y al parsear el archivo EMBL, aunque me extrae solo la secuencia de ADN, me da error en la línea 9 y no sé ...

El archivo que necesito transformar tiene tres hojas (vfp, corriente, datos).

En vfp extraigo las variables $vnominal, $mPT, $pacep y $mpot.
En corriente extraigo las variables $CT, $CENS.
En datos extraigo once columnas de un mínimo de 2880 datos.

La hoja de datos es la que transformo a texto y la columna de fechas las transformo a un formato conveniente.

La hoja de datos está así:



Esta conversión la realizo con la ayuda del ...

¡Hola a todos!

¡Tengo una dudilla! Nuestro gran idioma tiene caracteres como á,ó,ñ,...

Lo que me sucede con ellos es que al hacer un split() con \b a la linea "esto es una prueba con el español", es decir:
my $linea="esto es una prueba con el español";
@tmp=split('\b',$linea);
print "@tmp";

El resultado es:
esto es una prueba con el espa ñ ol
Separando, como veis, la palabra español de la manera espa/ñ/ol.

¿Sabéis ...

Hola, una duda.

¿Qué significan exactamente estas líneas?
if ( $line =~ /^SQ/ .. /^\/\// ) {
next if $line =~ m {^(?:SQ|//)};
$dna .= $line;
}

Yo creo que es: si coge de $line lo que está entre SQ y // y hace que pase a la siguiente línea si encuentra un matching en una línea que al principio tenga 0 o 1 SQ o //, y va concatenando las líneas a $line, ...

La CEVUG, Centro de Enseñanzas Virtuales de la Universidad de Granada, y la FGUGREM, Fundación General Universidad de Granada-Empresa, organizan un curso de programación avanzada en Perl, de 30 horas virtuales.

El objetivo principal del curso es dar nociones más avanzadas del lenguaje a aquellos que ya tengan conocimientos básicos del lenguaje Perl, especialmente aquellos que hayan realizado el curso de Introducción al Lenguaje Perl de los mismos autores, que ya lleva 10 ediciones (en ...

Hola. Me gustaría que alguien me ayudase a crear el estilo hyperlink para poder poner un enlace a una página web en Word mediante el módulo Win32::Word::Writer. Supuestamente no está definido este estilo y me gustaría que alguien me diera una idea de cómo hacerlo.

Hola, ando teniendo una duda. Lo que quiero hacer es que cuando se presione el botón se cambie la imagen por otra, o sea, que la primera se vaya y poder poner otra en su lugar. Lo quiero hacer con varias imágenes y varios botones, pero no sé cómo puedo hacerlo.

El código es el siguiente:

use Tk;
use Tk::PNG;

my $man = MainWindow->new(-background=>"black",-foreground=>"orange");
$man->title("Mysql Manager (C) Doddy Hackman 2011");
$man->geometry("650x540+20+20");
$man->resizable(0,0);
my $f ...

Hola, me presento: soy Rafael, estoy aprendiendo Perl, la verdad soy muy nuevo en esto.

Éste lo acabo de hacer pero está sujeto a cambios y mejoras. Por lo pronto solo lee el archivo y lo inserta en una tabla de MySQL, por si a alguien le sirve.

#!/usr/bin/perl -w
use warnings;
use strict;

use lib '/modules';
use azdb;

my $dbh = azdb->connect_callcenterdb();

my @lines = ();
my $line = "";
open( CSV, "<", ...

Estimados amigos del foro: he escrito un script basado en otro que ya conocía bastante bien y sabía cómo funcionaba. Al modificar y eliminar líneas me percaté de que habían varios || y no recuerdo si lo leí en el foro en algún tutorial en la red, que era preferible usar «or» en su lugar.

¿Es correcto esto?

Gracias por todo
Pablo

Hola. Tengo una lista en la que muestro el elemento que se ha seleccionado con su número de orden. El problema es que después de mostrar el dato por pantalla quiero borrarlo de la lista.


my @procer = ("uno","dos","tres","cuatro","cinco","seis");
my $numb = 5;
print @procer;
#borrar dato

¿Alguien me puede explicar cómo borrar dicho dato?