Portál AbcLinuxu, 8. května 2025 18:18
No heading in ? at line 17.
když tam tag h1 je?
#! /usr/bin/perl -w use HTML::TreeBuilder; use HTML::Tree; use HTML::Element; my $page="Local Man Sees Blade Again
"; my $tree = HTML::Tree->new; $tree->parse_file($page); # ! print $tree->as_text; my $heading; my $h1 = $tree->look_down('_tag', 'h1'); # ! if($h1) { $heading = $h1->as_text; # ! } else { warn "No heading in ?"; } $tree->delete; # clear memory!
Řešení dotazu:
parse_file
načítá soubor, když se místo parse_file
použije parse tak už to bude fungovat
Tiskni
Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.