#!/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();