Foro - Perl en Español

Acaba de salir el libro Perl Moderne, de los autores Sébastien Aperghis-Tramoni, Philippe Bruhat, Jérôme Quelin y Damien Krotkine.

450 páginas, Ediciones Pearson, octubre 2010, ISBN 978-2-7440-2419-1.

Tabla de contenidos:

01. Empezar con Perl
02. Instalar un módulo Perl

I. Lenguaje y estructuras de datos
03. Lenguaje
04. Estructuras de datos
05. Expresiones regulares

II. Programación moderna de objetos
06. Objetos básicos Perl
07. Moose
08. Escribiendo un sistema en Moose
09. Métodos en Moose ...

Hola, ando teniendo un problema con el siguiente
código.

use IO::Socket;

my $sockea = new IO::Socket::INET(PeerAddr => "localhost",PeerPort => "80",
Proto => "tcp",Timeout => 5);

menu:
my $re;
print ">";
chomp(my $cmd = <stdin>);

print $sockea $cmd."\r\n";
$sockea->read($re,5000);
print $re."\n";
goto menu;


El problema está en que no sé cómo mantener la variable $sockea activa para poder seguir enviando sentencias al puerto 80.

¿ Alguien me puede ayudar ?

¿Qué tal?

Quiero aprender Perl pero estoy en cero y tengo un par de preguntas.

1.- ¿De dónde puedo bajar el Perl para instalarlo en mi PC?
(No sé si exista alguna versión que funcione en Windows XP)

2.- ¿Qué libro me recomiendan o algún buen manual en español o algunas sugerencias que puedan brindarme?

De antemano, agradezco sus respuestas.

Saludos.
Gerardo.

Hola, una pregunta sencilla:

Necesito definir un string en un arreglo pero estos son muy largos y quiero sangrarlo. ¿Cómo lo hago para que queden en múltiples líneas sin que en el resultado salgan tabuladores?

¡Hola! Soy nueva con el uso del Perl y la programación en general y estoy tratando de hacer un oneliner para realizar la edición de la primera línea de un archivo FASTA (fastaheader) del Genebank, y básicamente lo he hecho a base de la expresión regular:

perl -pe 'if(/^>/){ s/gi\|//; s/\|.*\| / /;s/bv.//; s/strain//;s/gene,//;s/partial//;s/cds//;s/.//g;s/-//g;s/ / /g;s/ / /g;s/ / /g;s/ /_/g} s/^\n$//' archivo.fasta | grep '>'

Con el grep() voy viendo cómo va quedando y ...

Hola,
tengo 2 aplicaciones. Una se ejecuta inicialmente desde un main.cgi
y la otra se ejecuta inicialmente desde nombre.perl.
Uno tiene extensión cgi y otro extensión perl.
Mi pregunta es, como se puede hacer la llamada en código desde el archivo nombre.perl a main.cgi para que si se accede a nombre.perl se direccione a main.cgi a ejecutarse primero?

es decir, lo que quiero hacer es que si ejecuto nombre.perl se redireccione a main.cgi para utilizar ...

La tarea que tengo que hacer es un pequeño bot que registra unos datos en un formulario, pero éste tiene un select con categorías que, cuando le doy clic me despliega el formulario según la categoría...

No he podido pasar de ahí. Otro problema que tengo es cuando el botón es una imagen y retorna es una función de JavaScript. He buscando un módulo y encontré WWW::Mechanize::Plugin::Ajax pero no logro usarlo.

Cuando uso
$mech->use_plugin('Ajax');
obtengo ...

Buenas, tengo el siguiente problema, cuando introduzco datos por medio del teclado usando stdin y me equivoco quiero borrar el carácter o caracteres en que me equivoqué, pero en lugar de eso se introduce el carácter de borrado. ¿Cómo puedo solucionar esto?

Gracias.

¿Qué tal? Necesito entrar a un router Cisco 1841 vía telnet u otra para habilitar y deshabilitar interfaces.

Bueno, solo quiero hacer un simple listener en Perl. Debe ejecutarse siempre sobre algún puerto, escuchando si le llega alguna petición de un webservice que está enviando a cada N segundos información...

Yo lo hice en Visual Basic fácilmente pero no me agrado la solución, :?