Foro - Perl en Español

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

¡Hola a todo el mundo!

Soy un diseñador gráfico wannabe (aún estoy en Bellas Artes), y siempre me ha interesado la Informática, pese a que tanta matemática me da demasiado dolor de cabeza, y por eso opté por tirar por la rama artística.

Me llama mucho la atención el tema de la programación y tal, y actualmente estoy tratando de aprender algo de Perl en mis ratos libres como principio a mi aprendizaje informático (supongo ...

Hola :P espero que alguien me pueda ayudar :roll: :roll: :roll:

Quiero hacer lo siguiente:

Hacer en IReport un .jasper para imprimir boletas.

Pero no quiero que se conecte a una base de datos si no pasarle los datos usando ...