Foro - Perl en Español

Hola, ando queriendo hacer un sustituto de netcat en Perl para la opción de mantener un puerto abierto para recibir datos. La idea sería que sea como el comando -lvvp de netcat.

El código del server que vendría a ser el sustituto de netcat sería el código siguiente:
#!/usr/bin/perl -w
# serverIO.pl - a simple server using
# IO::Socket
use strict;
use IO::Socket;
my $sock = new IO::Socket::INET(
LocalHost => 'localhost',
LocalPort => 7890, ...

¡Buenas!

Estoy teniendo problemas a la hora de usar un switch: dado un dato, debo realizar una u otra acción. El problema es que el dato a veces es 0, y cuando es cero, entra en when 0, pero me he encontrado que, ante una entrada defectuosa de un usuario o por cualquier otro motivo, si $var vale abc, entra en when 0, y luego en default.

¿Por qué está pasando esto?

chomp(my $var=<STDIN>); ...

CPAN cumple 16 añitos...

100.715 módulos Perl, en 23.618 distribuciones, escritos por 9.292 autores, replicados en 269 servidores.

Artículo original (en inglés)

Felicidades.

«Perl es un lenguaje de programación que se utiliza extensivamente en administración de sistemas informáticos. Popularmente se le conoce como “The duct tape that holds Internet together”, por la ingente cantidad de código que han desarrollado y desarrollan administradores de sistemas para solucionar problemas de su día a día. El repositorio CPAN cuenta con paquetes que hacen prácticamente de todo; lo que supone que un programador con conocimientos básicos de Perl empleando CPAN puede solucionar ...

Curso de iniciación a Perl (en catalán), organizado por el grupo de monjes Perl de Barcelona, el 5 de noviembre, de 9h a 19h.

Anuncio

¿Qué tal a todos? Saludos. He leído su página. Felicidades.

Quiero hacer un programa muy sencillo. Lo que me gustaría saber es si con Perl puedo desarrollarlo ya que yo desarrollo en otros lenguajes.

Solo quiero hacer un sistema que consulte una base de datos MySQL y después de eso y de tomar alguna decisión mediante una sencilla condición, enviar uno o varios correos.

Yo tengo contratado un hosting en servidores Linux con PHP, CGI, ...

Hola. He estado tratando de migrar un script de bash que usa expect, pero no conozco cómo esperar del programa la subcadena "0 0 0 0" porque realmente no sé qué es lo que imprime. Para que me entiendan, en bash lo hacía así: <expect "*0 0 0 0*" { send "$fecha\r" }> porque los 2 asteriscos encontraban la subcadena "0 0 0 0" dentro de toda la mierda que retorna el programa. que es ...

Tenemos una nueva web en el mundo Perl:

PrePAN

• ¿Existe algún módulo similar?
• No estoy seguro de la implementación...
• ¿Cómo puedo distribuir el módulo siguiendo las convenciones de CPAN?
• ¡¡¡Quiero que alguien revise mi módulo!!!

¿Qué tal, amigos perleros? Mi problema es el siguiente:

Estoy haciendo un script que remplace una determinada línea dentro de un archivo de texto. Estuve leyendo tutoriales pero según los tutoriales que vi, para abrir archivos en modo lectura hace esto:

open(LECTURA,">> cableado") || die "No pudo abrirse: $!";

lo abre en modo escritura y escribe al final del código

open(LECTURA,"> cableado") || die "No pudo abrirse: $!";

escribe al inicio del código.

Pero lo ...

¿Qué tal, amigos? Soy nuevo en el foro y recién estoy dando mis primeros pasos con Perl y necesito ayuda haciendo el siguiente código:

La idea es bajar el html de un sitio. El tema es que el wget me guarda los html con un nombre así: %OA y no con el nombre del html descargado. Este es el código:


print "ingresa el sitio que deseas bajar el html: ";
my $sitio= <>; ...