Foro - Perl en Español

Hola, soy completamente nuevo en Perl y en este foro. He estado buscando por todos lados la manera de ejecutar archivos Perl con Apache pero nada de lo que he encontrado me ha funcionado. Llevo desde la mañana intentándolo y he decidido venirme y preguntar.

También he mirado en el tutorial de esta web de lo que no viene nada sobre el asunto, me imagino que podrá ser una tonteria pero necesito ayuda, les agradecería ...

Una (otra) consulta :D

En JQuery la función tablednd().

(http://www.isocra.com/2008/02/table-dra ... ry-plugin/)

Más específicamente en el último ejemplo (la que tiene las flechitas arriba abajo).

Alguien sabe alguna forma que al seleccionar una fila se pueda seleccionar otras, por ej.

Tengo una tabla que tiene id:

Code: Seleccionar todo

tr_1
tr_2
tr_2_1
tr_2_2
tr_3
tr_3_1
tr_3_2
tr_3_3
tr_4
tr_5

Lo que quería es ...

La fundación YAPC::Europe busca lugares para la próxima conferencia YAPC::Europe::2010.

Cualquier grupo interesado en montar la futura YAPC::Europe::2010 deberá mandar primero un breve resumen de sus intenciones. Luego, enviar una solicitud en firme. La fecha límite para la recepción de solicitudes es el 30 de junio.

Noticia original, en inglés.

Ha comenzado al plazo para la emisión de propuestas de presentaciones a la próxima YAPC::EU::2009, que se celebrará en Lisboa, los días 3 a 5 de agosto.

Hay de plazo hasta el día 30 de abril.

Este año, el tema de la conferencia será Perl Corporativo. Principalmente, se buscan presentaciones de cómo las empresas usan Perl y porqué, aunque, naturalmente, hay cabida para muchos otros temas, relacionados con Perl.

Anuncio original, en inglés.

Hola, yo de nuevo.

Deseo saber porqué no puedo alinear la impresión de un texto con printf(). Si uso el comando print() como a continuación describo

print ${$seqs});

obtengo algo así, por ejemplo

Code: Seleccionar todo

hgñahdgpqoihgjrkvhuipabjkbigpgabopgbnqrpqbgjanronbqpobpueobbfknafd
npboqnebobnoqnf
vnoqrwenboainvdkldjvoiaknlbvofdnbdlvnoajlnkljvñnaobnlmvlncoibnufiadbbtnbabfnjnhymyirndf

Son secuencias alineadas y deseo usar printf() para darle formato a cada una de esas secuencias, de tal forma que no haya más de 40 letras por línea:

Code: Seleccionar todo

hgñahdgpqoihgjrkvhuipabjkbigpgabop
klgodinaoignoiagbnqnpboqnebkngibho
obnoqnf
vnoqrwenboainvdkldjvoiaknlbvofdnnb
abfnjnhymyirndfnbanobnfoljnbjknaoio
ymyirnd

Al escribir printf("%.60s", ${$seqs});
aparece ...

Hola a todos, espero que se la estén pasando deluxe, bueno les comento, estoy apunto de adentrarme esta vez a programar en Perl, sé que algunos son inexpertos como yo y también sé que muchos de ustedes, ya lo conocen mejor que nadie, me gustaría que me apoyaran, recomendándome algún manual, guía, etc. que me lleven de la mano, y que a la vez tengan ejercicios para ir practicando; esto se los agradeceré enormemente, y ...

Buenas.

¿Cómo hago para imprimir las líneas que empiencen con una palabra y seguir imprimiendo hasta que encuentre una línea que empiece con cierta palabra?

Por ejemplo, quiero imprimir las líneas entre hola y adiós si la entrada es:

Code: Seleccionar todo

hola
prueba de mensaje
continua prueba
adios

Quiero la salida:

Code: Seleccionar todo

hola
prueba de mensaje
continua prueba

Primero hago un if (/^hola/) pero ¿cómo hago para avanzar de línea?

Muchas gracias.

Hola amigos: tengo este script:

#!/usr/bin/perl

use LWP::Simple;

my $URL= 'http://weather.uwyo.edu/cgi-bin/sounding?region=samer&TYPE=TEXT%3ALIST&YEAR=2008';
my $url = '&STNM=85442';
my $GRD2RAD = (3.141592654 / 180);
my $convertir = 0.514444;

for my $mes ( "12" ) {
for my $dia ( "01" .. "31" ) {
for my $hora ( 12 ) {

my $fecha = "$dia-$mes-$hora";
my $fichero = "$fecha.dat";
my $pagina = get("$URL&MONTH=$mes&FROM=$dia$hora&TO=$dia$hora$url");

if (defined $pagina) {
if ((my $datos) = $pagina =~ m/^<PRE>(.+?)<\/PRE>/sim) {

open (FICHERO, ">$fichero"); ...

Hola a todos.

Antes quiero agradecerles la ayuda, pues he ido concluyendo mi primer script que lee archivos de alineamientos (.pir), les hace algo a las secuencias y luego las imprime nuevamente.

La duda ahora es la siguiente:
Mi script me arroja algo así como:

Code: Seleccionar todo

aaaadigupaaaaapdduthhhhhhqrt98yyyyyyyyyyyyyyyyy9puhoqhghggaoihggggggggggggggggggqo
ioquuuyhhhhhhhhuirphgfjvnaaapi9uig (aquí termina la secuencia)
nbugqiprrryhpuiiiiiiiiiiiiiiiiiinfaddddjhgggggggggagoqhrihgoqhrrrrrhqioogqnrogqhjhgajkdddddyhgfuirrius
ndpppppppppppppppppppppqhg4gir (aquí termina la secuencia)
jniophgirhqqhhgklngaingauinroggggghqerrrrrrrrrrrrrrrrrrrrrrrhguoqkjagbsduuuuhgggggggggggggggg
nnioqhreeeeeeeqqqqqqqqqqiheqqio (aquí termina la secuencia)
.
.
.
.
etc.

Necesito darle formato fasta a esta cadenas ...

Estoy tratando de programar un pequeño código que quiero usar en un mod de RO, pero dada mi inexperiencia no logro dar con la fórmula adecuada para ello...

Bueno, el código que yo he escrito (erróneo) es algo así:
$_l = $::char->{look}{body} - 1;

if ($_l == -1) {$z = (,,,,,,,)}
elsif ($_l == 0) {$z = (,,,,,,,)}
elsif ($_l == 1) {$z = (,,,,,,,)}
elsif ($_l == 2) {$z = (,,,,,,,)}
elsif ($_l ...