Foro - Perl en Español

Hola,

me creé un servidor web utilizando las librerías de HTTP::Server::Simple.

Ahora me gustaría crear un cliente que lance una request. ¿Necesito las librerías de HTTP::Request y UserAgent o tengo algún método de Simple que me permita hacer esto?

Hombre, yo lo he mirado y no veo nada en Simple, me gustaría que me confirmarais si debo instalarme las otras dos librerías comentadas arriba,

Gracias.

¡Hola! Soy nueva en ese foro... espero colocar mi duda en el lugar adecuado...

Tengo un archivo rss.pl, un archivo de configuración config.conf y una plantilla plantilla.tmpl. Cuando ejecuto en la línea de comandos perl rss.pl config.conf debe crearse un xml usando la plantilla plantilla.tmpl y rellenándola con los datos que aparecen en config.conf.

El trozo de código que se encarga de escribir el xml es el siguiente:

open( FILE, ">$outFile" ) or die "can't ...

¡Hola!

Me gustaría poder capturar los errores que obtengo al intentar ejecutar un sql en una base de datos.

Algo así como la sentencia:
my $sth =$dbh_sre->prepare($sql) or &error("ERROR preparing query to run in database: couldn't prepare $DBI::errstr");

La subrutina "&error" a su vez inserta el error en la base de datos...

¿Alguien tiene alguna idea?, he leído algo de raiserror pero no lo entiendo muy bien.., no sé si van por ahí los tiros... ...

Hola a todos.

Deseo saber si alguien de uds. ha usado algún script en Perl para ejecutar Clustalw y realizar algunas tareas como: cambiar formato de archivos (.pir a msf), realizar alineamientos, etc.

¿Saben dónde puedo encontrar algunos ejemplos?

Les agradeceré mucho cualquier información relacionada.

Gracias.


P.

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