Ing. Branislav Gerzo [IBG], on Tuesday, November 22, 2005 at 13:42
(+0100) thinks about:
IBG> while(my $tag = $parser->get_tag('b')) {
IBG> my $text = $parser->get_text();
IBG> last if $text =~ /^(this and that|or that and this)/i;
IBG> }
IBG> my $text = $parser->get_text('b', 'b');
IBG> in $text I have text, but it is according to docs:
IBG> ...Any entities will be converted to their corresponding character....
after some experiments I come to the solution:
while (my $token = $parser->get_token) {
last if $token->[0] eq 'S' and $token->[1] eq 'b';
print $token->[1] if $token->[0] eq 'T';
}
I hope it helps someone:)
--
How do you protect mail on web? I use http://www.2pu.net
[Klingon Talkshows include "O'Prah" and "D'nahue"]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
