Opened by vitopetre at 2010-04-11 23:27
User since
2003-08-04
12209 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12209 Artikel
Admin1
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
$ perl -wle'
use HTML::TreeBuilder::XPath;
my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse(<<EOM);
<h3 class="blue-space">D-Lib Magazine</h3>
<p class="blue">March/April 2010<br />
Volume 16, Number 3/4<br />
<a href="../03contents.html">Table of Contents</a>
</p>
EOM
my $href = $tree->findvalue(q{//p[@class="blue"]/a/@href});
print $href'
../03contents.html
edit: wobei ich mich frage, warum
$tree->findvalue(q{//a[text() = "Table of Contents"/@href});
nicht geht. da hörts dann doch mit meinen xpath-kenntnissen auf.
Last edited: 2010-04-14 16:54:20 +0200 (CEST)
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem