Opened by #Kein Kommentar at 2008-05-24 18:11
User since
2007-06-09
575 Artikel
HausmeisterIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-06-09
575 Artikel
HausmeisterIn
hallo,
ich würde gerne für ein Tk-HTMLwidget mit
HTML::Parser verschachelte elemente aus einer html-seite ausfiltern.
folgendes kurzes script funktioniert aber nicht:
als ausgabe kommt bei mir:
erwartet hätte ich eher sowas wie:
wieso wird <small>...</small> nicht als eigenes tag angesehen?
ich würde gerne für ein Tk-HTMLwidget mit
HTML::Parser verschachelte elemente aus einer html-seite ausfiltern.folgendes kurzes script funktioniert aber nicht:
Code: (dl
)
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
#! /usr/bin/perl
use strict;
use HTML::Parser;
my @links;
my $string = qq~
<small>
<b>fetter text</b> Ein anderer Text
<i>kursiver text</i> text
</small>~;
my $p = HTML::Parser->new();
$p->handler(start => \&start_handler,"tagname,self");
$p->parse($string);
foreach my $link(@links){
print "Tag:\t",$link->[0],"\nText:\t",$link->[1],"\n\n";
}
<>;
sub start_handler{
my $tag = shift;
my $self = shift;
my $text;
$self->handler(text => sub{$text = shift;}, 'text');
$self->handler(end => sub{push(@links,[$tag,$text])});
}
als ausgabe kommt bei mir:
erwartet hätte ich eher sowas wie:
Code: (dl
)
1
2
3
4
5
6
7
8
Tag: small
Text: <b>fetter text</b> Ein anderer Text<i>kursiver text</i> text
Tag: b
Text: fetter text
Tag: i
Text: kursiver text
wieso wird <small>...</small> nicht als eigenes tag angesehen?
Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind