rdfa.pl

#!perl
use strict;
use warnings;
use URI;
use Web::Scraper;
use HTML::Element;
use YAML;

my $rdfa =  scraper {
    process '//link[@rel="alternate"][@media="handheld"]', 'mobile', '@href';
    process '//div[@typeof=~/^v:/]', 'rdfa[]', sub {
        my $elem = shift;
        my @elems = $elem->look_down('property', qr/^v:/);
        return map { +{$_->attr('property') => $_->as_text } } @elems;
    };
}->scrape(URI->new(shift));

warn Dump $rdfa;