unwind-protect

何となく書いてみただけ。だからどうだってわけではない。それにしてもWeb::Scraper使うとeasyだなぁ。

use strict;
use warnings;
use Web::Scraper;
use URI;
use YAML;

my $url = 'http://www.last.fm/user/saltyduck/shoutbox';

my $messages = scraper {
    process "li.hentry", 'message[]' => scraper {
        process "p.entry-content", 'message' => 'TEXT';
        process "span.fn", 'from' => "TEXT";
        result 'from', 'message';
    };
}->scrape(URI->new($url));

print YAML::Dump $messages;