使用SPARQL从HTML页面查询元数据不会返回任何内容

我似乎遇到了一些使用HTML::HTML5::Microdata::Parser或RDF::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的选项只是我最后的努力，使这项工作。（我基本上不知道我在做什么。）

任何想法如何使这项工作，并得到作者的名字？

来源

2016-01-22 wilx

最后，我最终使用'HTML :: Microdata'代替。它适用于我想要做的事情。不过，我仍然对如何使HTML :: HTML5 :: Microdata :: Parser加上SPARQL方法的工作感兴趣。 – wilx

只需使用Mojo::UserAgent和Mojo::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。

来源

2016-01-27 04:00:49 Miller

使用SPARQL从HTML页面查询元数据不会返回任何内容

回答

相关问题