Foro - Perl en Español

Tengo un par de valores introducidos por teclado:

print "\ninicio : ";
my $inicio = <STDIN>;
chop ($inicio);

print "\nfinal : ";
my $final = <STDIN>;
chop ($final);

$inicio siempre es menor que $final. Pongamos que meto $inicio=9 y $final=11. Lo que quiero es crear los siguientes ficheros:

for (my $i=$inicio; $i<=$final; $i++)
{
open (OUT, ">", "read_".$i.".xml") or die "No\n";
#ETC ...
}

Pero en lugar de:

Code: Seleccionar todo

read_0009.xml
read_0010.xml
read_0011.xml

Me sale: ...

Hola.

Estoy aprendiendo Perl, pero estaba tratando de manejar POP3 en C, y alguien me dijo que para eso es mejor Perl, y me enseñó un código. El problema es que me muestra un mensaje de error y no sé cómo arreglarlo.

Les muestro el error y les dejo el código, espero me puedan ayudar.

salu2 :D
Can't locate object method "new" via package "Term::ReadLine::Gnu" at ...

¡¡Hola gente!!

Soy ultra nuevo, en el foro y la programación.
¿Alguien podría darme una orientación sobre cómo hacer una interfaz web para poder administrar un proxy Linux que se configura mediante textos por consola?

O sea, tengo el archivo de configuración
activo="yes" #poner en yes para que funcione
httpport="69"
tipo_isp="alternative" #ak poner default o alternative
dnstest="yes"
site1="www.google.com"
site2="www.yahoo.com"
site3="www.arnet.com.ar"
tcshow="yes" #Activa las estadisticas de tc
log="/partition/link.log" #donde se guardan los logs de caidas.
resetmodem="yes" ...

Hola amigos del foro. Mi pregunta es muy básica y es la siguiente: tengo un archivo que contiene esto

Code: Seleccionar todo

925 20.57468830674024 0.07101155419041266 -1.437466807894820

Y tengo un segundo archivo que tiene esto:

Code: Seleccionar todo

1000 24.50888061523438 0.8609685897827148 2.454782009124756
 850 18.37466430664062 0.06101134419441223 -1.037439107894897
 700 11.974609375 -1.701856851577759 1.649602055549622
 600 4.501434326171875 -2.099121809005737 3.796727657318115
 500 -5.23321533203125 -0.7169337272644043 3.405479431152344
 400 -16.0601806640625 3.223285675048828 -1.233854413032532
 300 -31.17556762695312 14.97671508789062 -4.939971446990967
 250 -41.01242065429688 15.30762481689453 -8.200047492980957
 200 -52.07179260253906 15.63027954101562 -11.43390274047852
 150 -66.32958984375 15.91667556762695 -6.861349105834961
 100 -76.96820068359375 -2.331923961639404 2.536499500274658

...

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

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