Foro - Perl en Español

Buenas tardes, comunidad. Tengo el siguiente script para solucionar un problema. Si pueden ayudarme, por favor.

Problemática: es un sistema de votación. Ejemplo: ¿Está de acuerdo en que Perl es un lenguaje potente? "sí", "no".

El cual tiene dos opciones ("sí","no") Este sistema permite realizar dieciséis votos, es decir, ocho síes y ocho noes para una IP. Luego de realizar los dieciséis votos u ocho votos de su elección, la dirección IP es bloqueada por ...

Buenos días.

Estimados: favor solicito. Ayuda a una duda que tengo. ¿Cómo puedo realizar un envío POST utilizando HTTPS?

Tengo el siguiente código:
#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);

use LWP::UserAgent;
use HTTP::Request;

my $url = "https://mipagina.aspx";
my $query = "2BZ0b0FAuG%2BousKAoO4powLAt%2Fo6qoMZRsniW23WyEyg82peBBfshM84E8%3D&txtNombre=ivan&txtNroTelf=3508548&txtContador=84&txtMensaje=prueba&txtCaptcha=69NJ&txtFechaHora=01%2F10%2F2014+10%3A25&btnEnviar=Enviar";

my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:32.0) Gecko/20100101 Firefox/32.0");
$ua->proxy('http','http://usuari:contraseña@miproxuejemplo:8080');

my $req = HTTP::Request->new(POST => $url);
$req->content_type('application/x-www-form-urlencoded');
$req->content($query);

Por favor, si alguien puede darme una ayuda para realizar peticiones con ...

Estimados, tengo el siguiente código:
#!/usr/bin/perl

use strict;
use threads;
use LWP::UserAgent;
use HTTP::Request;
use threads::shared;
#my $compartida :shared = 0;
my @vector : shared;

my ($URL3,$URL2,$URL1,$idvotacion,$opcion,$min,$max);

$idvotacion = "541bac86e4b088456e71d59c";
$URL1 = "http://www.easypolls.net/poll?command=getPoll&pollId=".$idvotacion;
$URL2 = "http://www.eassypolls.net/podll?command=getPoll&pollId=".$idvotacion;
my $y = @vector;
my $r = int(rand($y));
$URL3 = "http://www.easypolls.net/poll?multResp=0&pollId=".$idvotacion."&pollKey=".$vector."&command=saveResponse";

print scalar(localtime),"\n";
my $c = 0;

threads->create('Obtener_PollKey',$URL1,1,10); #Cuenta de 1 al 5 #Se crea el thread pero no se guarda la referencia
#threads->create('Obtener_PollKey',$URL1,1,3); #Cuenta de 1 al 5 ...

Saludos, estimados.

Tengo una duda o consulta. El siguiente escenario,
tengo un script en localhost de prueba,
el cual permite mostrar un mensaje al presionar un botón.

Limitaciones: cuando es presionado el botón YA NO PERMITE volver a mostrar ningún mensaje,
salvo que la petición se genere desde otra IP.

¿Cómo podría hacer para utilizar varias IP o un proxy anónimo que me dé diferentes IP en cada GET?
Alguna idea o sugerencia, al respecto. ...

Buenas tardes.

Estimados, tengo otra consulta.

Tengo el siguiente enlace: http://www.easypolls.net/poll?command=g ... 456e71cfb4

el cual me devuelve aparentemente un JSON.

Estoy realizando un GET con Perl a esa dirección, y me muestra todo ese código.

Casi al final hay un código así:

"pollKey":"dk3V149"

La palabra "pollKey" no cambia, siempre es la misma.

El valor que tiene a continuación es el que cambia aleatoriamente pero siempre tiene un tamaño de ...

Buenos días.

Antes que nada, agradecer por permitirme ser parte de esta comunidad.

Paso a explicar mi problema y agradeciendo su pronta respuesta y todas las ayudas. MUCHAS GRACIAS.

El proceso es el siguiente:

pág. ejemplo : http://www.miweb.com
pág. otra : http://www.otra.com
navegador : firefox

Procedimiento:

Al acceder con el navegador a http://www.miweb.com revisando las cookies se ...

Hola...

Realmente quería iniciar con Dancer o Mojolicius pero resulta que no sé cómo instalarlos. Resulta que en la URL de Dancer:

http://www.perldancer.org/quickstart

Dice que para instalarlo tengo que usar

curl -L http://cpanmin.us | perl - --sudo Dancer

Bueno, pues qué les parece que no tengo un servidor ni menos aún acceso a SSH para ejecutar el comando... Solo cuento con un alojamiento...

Y en Mojo http://www.perldancer.org/quickstart la ...

Hola.

¿Me podéis decir cómo se podría capturar la IP del visitante y guardarla en un text en el servidor o mandarla por correo?

Gracias de antemano.

Hola.

Aparte de perl-cgi, ¿cuáles son las otras maneras de generar contenido dinámico con Perl?

Gracias.

Hola, no soy muy bueno en Perl. Desearía saber cómo hacer para que cuando suba un archivo, si pesa más de 20 MB, no lo deje subir.