#!/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;
# wir suchen nach einem "TAG" und der soll "meta" lauten
# wir gehen alle gefunden tags durch
for my $meta ( $html->look_down( _tag => 'meta' ) )
{
# ist das Attribut "name" gesetzt?
next if(! $meta->attr('name'));
# ist der inhalt von "name" "DOI"?
next if( $meta->attr('name') ne 'DOI');
# ist das Attribut "content" gesetzt?
next if(! $meta->attr('content'));
# gefunden
$doi=$meta;
last;
}
if($doi)
{
# etwas wurde gefunden
# Attribut "content" ausgeben
print $doi->attr('content')."\n";
}
$html->delete();