Foro - Perl en Español

¿ Hay algún script en perl ya hecho de cómo generar con números de 6 dígitos usando el algoritmo de Luhn ?

Encontré este módulo: http://search.cpan.org/~tayers/Algorith ... 00/LUHN.pm , pero solo sirve para verificar.

Hola, estoy haciendo un script en Perl que se conecta a un canal IRC por socket, el tema es que todo anda bien pero cuando quiero leer las líneas del canal cuando se habla es cuando me da problemas. El tema es que la expresión regular funciona pero es como si deformara la variable; simplemente se muestra doblada o en blanco. El código es este:

print $soquete "NICK $nick\r\n";
print $soquete "USER $nick ...

«En este tutorial se muestra como utilizar la tecnología CGI con Perl para construir aplicaciones web».

Lista de reproducción

Ya son como casi 5 años, de estar en el foro si no estoy mal...

pero aun así agradezco a explorer por siempre estar atento a nuestras dudas y a Kidd el creador de este foro...

FELIZ AÑO 2014 y que Perl siga creciendo... :D

He estado buscando y encontré está página http://en.wikipedia.org/wiki/Comparison_of_web_application_frameworks

Y me pregunto ¿cuál de estos es el mejor o más recomendable?

http://www.catalystframework.org/
http://mojolicio.us/
http://www.perldancer.org/
http://www.masonhq.com/
https://metacpan.org/pod/Maypole

Gracias :)

Hola, ¿qué tal? Quisiera saber si es posible crear un menú desplegable pero que su navegación sea solo de tipo POST.

Un ejemplo: en mi sistema estoy navegando con botones que en la acción de navegación es de esta manera:

"||i|inicio_sesion||"

que me manda a la interfaz de iniciar sesión.

No sé si me expliqué. Quedo en espera de sus amables comentarios.
Saludos

Hola, necesito establecer un control en este código. La idea es que en el proxy server se detecte que si una URL tiene un "?", o sea, está haciendo un formulario, se modifique por Google y termine. El tema es que necesito establecer un control porque después detecta de nuevo el GET mandado, o sea, Google. Mi idea es hacer un control y que no detecte la URL a la que cual redirecciono.

El código: ...

Hola. Tengo el siguiente código.

use HTTP::Proxy;
use HTTP::Proxy::BodyFilter::simple;
use HTTP::Proxy::BodyFilter::complete;
use Data::Dumper;

my $server = HTTP::Proxy->new(port=>8080);
$server->host();

$server->push_filter(mime=>undef,response => HTTP::Proxy::BodyFilter::complete->new());

$server->push_filter(
mime=>undef,
request=>HTTP::Proxy::BodyFilter::simple->new(\&enable),
response => HTTP::Proxy::BodyFilter::simple->new(\&enable2));

$server->start();

sub enable {

my($a,$b,$c,$d,$e) = @_;

print $c->header("content");

#print Dumper $c;

}

sub enable2 {
my ($j,$k,$l,$m,$n) = @_;
print $$k;
}

El tema es que ya sé capturar el contenido POST y modificarlo a mi antojo, que sería así:

print $c->content;
$c->content("testing")

Ahora quiero ...

Hola,

Necesitaba convertir todas las mayúsculas después de un punto a minúsculas. Sé que para convertir todas las mayúsculas a minúsculas se podría hacer así:

open F, shift;
while (<F>) {
$_ =~ tr///;
print;
}
close F;

Pero, ¿cómo puedo hacer para convertir solo las mayúsculas que van después de punto? Intenté algo como lo siguiente:

open F, shift;
while (<F>) {
if (/\.\s()/) {
$1 =~ tr///};
print;
}
close F;

Es decir: ...

Hola, tengo el siguiente código:

#!usr/bin/perl
#A simple Proxy Server
#(C) Doddy Hackman 2011
#ppm install http://theoryx5.uwinnipeg.ca/ppms/HTTP-Proxy.ppd

use HTTP::Proxy;
use HTTP::Proxy::BodyFilter::simple;
use HTTP::Proxy::BodyFilter::complete;

my $port = "8083";
my $logs = "logs.txt";

print "\n\n Proxy server Online in port $port\n\n";

my $server = HTTP::Proxy->new(port=>$port);
$server->host();

$server->push_filter(mime=>undef,response => HTTP::Proxy::BodyFilter::complete->new());

$server->push_filter(
mime=>undef,
request=>HTTP::Proxy::BodyFilter::simple->new(\&enable),
response => HTTP::Proxy::BodyFilter::simple->new(\&enable2));

$server->start();

sub enable {

my @logs;
my($a,$b,$c,$d,$e) = @_;
my ($f,$g)=($c->header("cookie"),$c->header("x-requested-with"));
my ($h,$i)=($c->header("content-type"),$c->header("content"));

savefile($logs,"\n : ...