educa.ch

this is a great great totuorial and a supergreat tool: Lemme ask you if i got this right!? With that i can determine the paths - in other words i can find out all the paths in a HTML-file!? $ perl htmltreexpather.pl select.html _tag option HTML::Element=HASH(0xb139ec) 0.1.1.0.0 Chose Some aaa /html/body/form/select/option /html/body/form/select/option /html/body[@bgcolor='red']/form[@action='/foo.cgi' and @name='queryfoo']/select[@name='singlelist']/option[@value='aaa'] ------------------------------------------------------------------ ##

##


#!/usr/bin/perl --

use strict;
use warnings;

use HTML::TreeBuilder::XPath;
#~ $XML::XPathEngine::DEBUG = 1;
my $tree = HTML::TreeBuilder::XPath->new;
$tree->parse_content(<<'__HTML__');

educa.ch Adresse - Schulen in der Schweiz<
/td> 

 
Al
tes Schulhaus Ossingen     
Guntibachstrasse 10

8475  Ossingen 
sekretariat.psossingen@bluewin.ch
 
Tel:052
 317 15 45 

Fax:052 317 04 42 
 
__HTML__


# you can delete html/body
for my $query (
 qw!
 /html/body/div[2]
 /html/body/div[4]
 /html/body/div[6]
 /html/body/div[9]
 /html/body/div[11]
 /html/body/div[12]
 !
 )
{
 print $query,"\n",$tree->findvalue($query),"\n\n";
}

__END__
/html/body/div[2]
Altes Schulhaus Ossingen 

/html/body/div[4]
Guntibachstrasse 10

/html/body/div[6]
8475  Ossingen

/html/body/div[9]
sekretariat.psossingen@bluewin.ch

/html/body/div[11]
Tel:052 317 15 45 

/html/body/div[12]
Fax:052 317 04 42 

##

##

$ perl htmltreexpather.pl select.html _tag  option
HTML::Element=HASH(0xb139ec)    0.1.1.0.0
Chose Some aaa
/html/body/form/select/option
/html/body/form/select/option
/html/body[@bgcolor='red']/form[@action='/foo.cgi' and @name='queryfoo']/select[@name='singlelist']/option[@value='aaa']