2016-01-22 90 views
8

我似乎遇到了一些使用HTML::HTML5::Microdata::ParserRDF::Query或使用SPARQL語法和語義的問題。我對news site page的這一點感興趣。使用SPARQL從HTML頁面查詢元數據不會返回任何內容

<div class="authors"> 
Autoři: <span itemprop="author" itemscope itemtype="http://schema.org/Person"><a rel="author" itemprop="url" class="name" href="http://vice.idnes.cz/novinari.aspx?idnov=2504" ><span itemprop="name">Zdeňka Trachtová</span></a></span> 
, 
<span itemprop="author" itemscope itemtype="http://schema.org/Person"><a rel="author" itemprop="url" href="http://vice.idnes.cz/novinari.aspx?idnov=3495" ><span itemprop="additionalName">san</span></a><span class="h" itemprop="name">Sabina Netrvalová</span></span> 
</div> 

這裏是我的測試代碼:

#! env perl 

use strict; 
use Data::Dumper; 
use HTML::HTML5::Microdata::Parser; 
use RDF::Query; 
use IO::Handle; 
use LWP::Simple; 


STDOUT->binmode(":utf8"); 
STDERR->binmode(":utf8"); 

my $htmldoc = LWP::Simple::get(
    "http://zpravy.idnes.cz/zacinaji-zapisy-do-prvnich-trid-dn3-/domaci.aspx?c=A160114_171615_domaci_zt"); 
die "Could not fetch URL. [email protected]" unless defined $htmldoc; 

my $microdata = HTML::HTML5::Microdata::Parser->new (
    $htmldoc, $ARGV[0], 
    {auto_config => 1, tdb_service => 1, xhtml_meta => 1, xhtml_rel => 1}); 
print STDERR "microdata->graph:\n", Dumper($microdata->graph), "\n"; 

my $query = RDF::Query->new(<<'SPARQL'); 
PREFIX schema: <http://schema.org/> 
SELECT * 
WHERE { 
    ?author a schema:Person . 
} 
SPARQL 

my $people = $query->execute($microdata->graph); 
print STDERR "authors from RDF:\n", Dumper($people), "\n"; 
while (my $person = $people->next) { 
    print STDERR "people: ", $person, "\n"; 
} 

HTML::HTML5::Microdata::Parser的選項只是我最後的努力,使這項工作。 (我基本上不知道我在做什麼。)

任何想法如何使這項工作,並得到作者的名字?

+0

最後,我最終使用'HTML :: Microdata'代替。它適用於我想要做的事情。不過,我仍然對如何使HTML :: HTML5 :: Microdata :: Parser加上SPARQL方法的工作感興趣。 – wilx

回答

2

只需使用Mojo::UserAgentMojo::DOM

use strict; 
use warnings; 
use utf8; 
use v5.10; 

BEGIN { 
    binmode *STDOUT, ':utf8'; 
    binmode *STDERR, ':utf8'; 
} 

use Mojo::UserAgent; 

my $url = "http://zpravy.idnes.cz/zacinaji-zapisy-do-prvnich-trid-dn3-/domaci.aspx?c=A160114_171615_domaci_zt"; 

my $dom = Mojo::UserAgent->new->get($url)->res->dom; 

# Process all authors 
for my $span ($dom->find('span[itemprop=author]')->each) { 
    say $span->all_text; 
} 

輸出:

Zdeňka Trachtová 
san Sabina Netrvalová 

有關這些模塊只有短短的8分鐘指南,只是檢查出Mojocast episode 5

相關問題