Leser: 23
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
use Template_Engine; use LWP::Simple; my $template=Template_Engine->new(); $template->add_template( Parse_Datum => eval{local $/=undef; <DATA>} ); $template->signal_connect('Datum' => &datum, 'optionale Werte an die Funktion'); $template->parse( Parse_Datum => get('http://example.org') ); sub datum { my $wert=shift; my @path=@{shift}; my $opts=shift; print "@path => $wert\n"; return 1; } __DATA__ [%foreach%] <div id="tag"> [%...%] [%foreach%] [%...%] <div class="datum">[%value path='/Tag/Datum'%]</div> [%...%] [%endfor%] [%...%] </div> [%endfor%]
1
2
3
4
Parse_Datum Tag Datum -> 19.2.2010
Parse_Datum Tag Datum -> 11.6.2024
Parse_Datum Tag Datum -> 25.5.1999
Parse_Datum Tag Datum -> 3.3.2003
1
2
3
4
5
6
7
8
9
10
11
12
13
[%foreach path="/Tage"%]
<div id="tag">
[%...%]
[%foreach%]
[%...%]
<p>[%value path="Name"%]</p>
[%...%]
<div class="datum">[%value path='Datum'%]</div>
[%...%]
[%endfor%]
[%...%]
</div>
[%endfor%]
1
2
3
4
Parse_Datum Tage Datum -> 19.2.2010
Parse_Datum Tage Datum -> 11.6.2024
Parse_Datum Tage Datum -> 25.5.1999
Parse_Datum Tage Datum -> 3.3.2003
1
2
3
4
5
6
7
8
Parse_Datum Tage Name -> Dienstag
Parse_Datum Tage Datum -> 19.2.2010
Parse_Datum Tage Name -> Montag
Parse_Datum Tage Datum -> 11.6.2024
Parse_Datum Tage Name -> Donnerstag
Parse_Datum Tage Datum -> 25.5.1999
Parse_Datum Tage Name -> Sonntag
Parse_Datum Tage Datum -> 3.3.2003