WWW::Mechanize

El módulo WWW::Mechanize proporciona los medios para automatizar la interacción con un site. El siguiente ejemplo (de Raimon Grau Cuscó un ex-alumno de PP2) utiliza google para decidir cual de dos palabras es la mas utilizada:

pp2@nereida:~/src/perl/testing$ syn.pl rehearsal rehersal
rehearsal

Sigue el código:

pp2@nereida:~/src/perl/testing$ cat -n syn.pl
 1  #!/usr/bin/perl
 2  use strict;
 3  use warnings;
 4  use WWW::Mechanize;
 5  use HTML::Strip;
 6
 7  die "$0 word1 word2" if (2> @ARGV);
 8
 9  my $w1 = shift;
10  my $w2 = shift;
11  my $rw1 =checkres($w1);
12  my $rw2 =checkres($w2);
13
14  print $w1 , "\n" if ($rw1 > $rw2);
15  print $w2 ,"\n" if ($rw1 < $rw2);
16  exit;
17
18  sub checkres {
19    my $word = shift(@_);
20    my $w1 = WWW::Mechanize->new;
21    $w1->get('http://www.google.es/search?hl=es&q='.$word.'&meta=lr%3Dlang_es');
22    my $cont = $w1->content;
23    my $html = HTML::Strip->new;
24    my $limpio = $html->parse($cont);
25    $limpio =~ m/de aproximadamente ([\d.]+) páginas/ ;
26    $limpio = $1;
27    $limpio =~ s/\.//g;
28    return $limpio;
29  } # ----------  end of subroutine checkres  ----------