Web Mechanization in Perl usando WWW::Mechanize

WWW::Mechanize aiuta a automatizzare l'interazione con un sito web. Effettua la richiesta di una pagina recuperando tutti i link e i form utilizzabili. Dopo aver prelevato ogni pagina viene analizzato tutto il contenuto per essere utilizzato da codice. Un link o un form possono essere selezionati o compilati e successivamente richiedere la pagina successiva (come se si lavorasse da un browser, ne' piu' ne' meno).
Per istallare WWW::Mechanize devi aprire la console CPAN ("digitando cpan dalla console", per i sistemi Windows vale lo stesso discorso dopo aver istallato ActivePerl) e scrivi 'install WWW::Mechanize'.

Esempio: questo script va su http://www.google.com ed effettua una ricerca.

use WWW::Mechanize;
my $mech = WWW::Mechanize->new();
$url = "http://www.google.com";

$mech->get( $url );

$mech->submit_form(
  form_number => 0,
  fields => {
    q => 'gentoo',
  }
);

print $mech->content();

Questo script di esempio, da il suo output in console.