if($contents) { my $content_data=get($contents); my $html2 = HTML::TreeBuilder->new(); $html2->parse($content_data); for my $p ($html2->look_down(_tag => 'p')) { next if($p->as_text() !~ /ISSN:/i); # # so geht das natürlich # my $doi=$p->content()->[10]; # $values{doi}=$doi if($doi); # my $issn=$p->content()->[12]; # $values{issn}=$issn if($issn); # wenn du dir nicht sicher bist wo genau die Daten stehen: for my $line ($p->content_list()) { # wir suchen keine "HTML::Element" Objekte (hier das
) # einfacher text gibt bei "ref" "false" zurück next if(ref($line)); # reguläre Ausdrücke zum finden der Zeilem mit "doi:" und "ISSN:" # gleichzeitiges holen der gesuchten Daten in "$1"; $values{doi}=$1 if($line=~/doi:(.+?)$/i); $values{issn}=$1 if($line=~/ISSN:(.+?)$/i); } # schleife abbrechen last; } $html2->delete(); }