Foro - Perl en Español

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 7 caracteres (letras y números).

¿Cómo puedo hacer para extraer el valor de "pollKey" y guardarlo en una variable?

He intentado con expresiones regulares pero aún no doy con la correcta. Por favor, si pueden ayudarme, gracias...

Mira esta respuesta.

Allí veras una forma de extraer la información con expresiones regulares, o con el módulo Mojo::JSON.

Si no te sale, publica la parte del código que estás probando, y miramos dónde falla.

El ejemplo que tengo es el siguiente:
#!/usr/bin/perl
use strict;
my $cadena =' "mensaje":"Hola este es mi ejemplo, ¿te gustó? FIN" '
chomp($linea);
if ($linea =~ /(\"mensaje\":\")([a-zA-Z]).(\s)/)
{
print $1;
print $2;
print $3;
}
}

Lo que necesito es que extraiga todo el mensaje HASTA que encuentre la primera comilla doble, desde " hasta ".

Resultado: Hola este es mi ejemplo, ¿te gustó? FIN

el cual debería obtener. GRACIAS, POR SU AYUDA.

Te falta un ';' al final de la línea 3, y declaras una variable $cadena, pero luego analizas $linea", así que este programa no te funcionará nunca.

La expresión regular hay que ajustarla más.
De todas maneras, esto no funcionará si dentro del mensaje aparecen comillas dobles.

Estimado, tengo este código:
#! /usr/bin/perl
use strict;
use LWP::UserAgent;
use HTTP::Request;

#/emPoll.js?p=541e13e2e4b088456e71d8ce"></script>
#en el código fuente de esta página contiene 3 enlaces iguales lo cuales varían el número o la secuencia ejemplo:
#541e13e2e4b088456e71d8ce
#541e13e2e4b088456e71d8RS
#541e13e2e4b088456e71d8XX

my $link = "http://www.eldeber.com.bo/home.php";
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:31.0) Gecko/20100101 Firefox/31.0");
my $req = HTTP::Request->new(GET => $link);
my $response = $ua->request($req);
my $content = $response->content();
my $codigo = $response->code();

#print $content;
if ($content =~ /(\/emPoll.js\?p\=)(.+)*$\"\>\<\/script\>/)
{
# print $1;
print $2;
print $3;

}

Tengo este código el cual, me muestra el primer código: 541e13e2e4b088456e71d8ce.

Pero necesito ayuda para poder obtener el resto y visualizarlos.

SALUDOS...

Debes convertir la condición en un bucle con la expresión regular con el modificador /g para que haga una búsqueda de forma repetida (global).

Muchas gracias por la ayuda, me fue de mucha utilidad. Ya solucioné mi problema. Gracias, estimado