Foro - Perl en Español

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

Lo que necesito es hacer un LOOP dentro de otro LOOP.

La idea es que recorro registros por medio de un TMPL_LOOP y pues cada registro de estos tiene un select() con varias opciones.

Algo más o menos así:<TMPL_LOOP REGISTROS>

<TMPL_VAR NAME=NOMBRE>

<SELECT>
<TMPL_LOOP CATEGORIAS>
<OPTION><TMPL_VAR NAME=NOMBRE_CATEGORIA> </OPTION>
</TMPL_LOOP>
</SELECT>

</TMPL_LOOP>

Pero los LOOP vienen de datos diferentes:$template->param(CATEGORIAS => \@listado_categorias );
$template->param(REGISTROS => \@miniaturas);


¿Cómo podría resolver esto? Si hay otra idea mejor...

Bueno, ...

En IBM developerWorks aparece un artículo para aprender las bases del sistema S3 de Amazon y los servicios SimpleDB construyendo un sitio de intercambio de fotos, hecho en Perl.

Artículo original de la primera parte (en inglés)