En esta ocasión tengo un problema para obtener el código que muestra una página.
Al llamar por GET a http://websms.nuevatel.com/new_img.php este me genera un token aleatorio, pero no puedo extraerlo.
Mi código:
- #!/usr/bin/perl -l
- use strict;
- use warnings;
- use LWP::UserAgent;
- use HTTP::Cookies;
- use HTTP::Request;
- my $http = LWP::UserAgent->new();
- $http->cookie_jar($cookies);
- $http->timeout(20);
- $http->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
- my $u = "http://websms.nuevatel.com/new_img.php";
- my $p = $http->get($u);
- my $x = $p->content();
- print $x;
¿Cómo puedo capturar el código que me genera el enlace new_img.php?