Sé que lo podría hacer con el método getstore() del módulo LWP::Simple... pero por circunstancias no puedo utilizarlo y necesito el código crudo HTML.
He intentado lo siguiente pero no me funciona.
Using perl Syntax Highlighting
- use LWP::UserAgent;
- my $ua = new LWP::UserAgent(
- agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5',
- );
- my $response = $ua->get('http://192.168.1.40/wordpress/index.php');
- open(FILE, ">/tmp/salida.txt");
- print FILE "$response->as_string";
- close(FILE);
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Esto es lo que obtengo en el archivo de salida:
HTTP::Response=HASH(0x2094370)->as_string
Gracias de antemano =^.^=
