#!/usr/bin/perl
use strict;
use warnings;
use HTML::TreeBuilder;
my $html_data=<<'HTML';
Using Omeka to Build Digital Collections: The METRO Case Study
HTML
my $html = HTML::TreeBuilder->new();
$html->parse($html_data);
my $doi = $html->look_down(
# wir suchen nach einem "TAG"
# und der soll "meta" lauten
_tag => 'meta',
# führe die den Code aus wenn der Tag "meta" ist:
# Wenn 1 zurückgeliefert wird haben wir was wir wollen
sub {
# ist das Attribut "name" gesetzt?
return 0 if(! $_[0]->attr('name'));
# ist der inhalt von "name" "DOI"?
return 0 if( $_[0]->attr('name') ne 'DOI');
# ist das Attribut "content" gesetzt?
return 0 if(! $_[0]->attr('content'));
# gefunden
return 1;
});
if($doi)
{
# etwas wurde gefunden
# Attribut "content" ausgeben
print $doi->attr('content')."\n";
}
$html->delete();