#!/usr/bin/perl

my @dias = qw( lunes martes miércoles jueves viernes sábado domingo );
my @partes = qw( mañana tarde noche);

use LWP::Simple;
use URI::Escape;

my $waquery = 'http://weblogabout.com/sc/sposts.pl?query=';
my %resultados;
for my $d ( @dias ) {
  for my $p ( @partes ) {
    my $str = "$d por la $p";
    print "Bajando $str\n";
    my $page = get( "$waquery".uri_escape($str) );
    my ($encontrados) = ($page =~ m{<strong>Encontrados: </strong>(\d+)<br>}s);
    $resultados{$d}{$p} = $encontrados;
  }
}

print "\t", join( "\t", @partes ), "\n";
for my $d ( @dias ) {
  print $d;
  for my $p ( @partes ) {
    my $str = "$d por la $p";
    print "\t$resultados{$d}{$p}";
  }
  print "\n";
}