HTML::TokeParser Line numbers

jithoosin has asked for the wisdom of the Perl Monks concerning the following question:

HI monks
i am parsing an html file using HTML::TokeParser. The code is

use HTML::TokeParser;

my $p = HTML::TokeParser->new($ARGV[0]);

while (my $token = $p->get_token() ) {

    my @tag = @{$token};

    if( $tag[0] eq 'S' || $tag[0] eq 'E' ){
        print "$tag[@tag-1]\n" ;
   }
}
[download]

The question is i need to print the line number along with start or end tag. Is it possible?

Comment on HTML::TokeParser Line numbers Download Code

Replies are listed 'Best First'.
Re: HTML::TokeParser Line numbers by Tomte (Priest) on Nov 24, 2005 at 14:02 UTC
Because `HTML::TokeParser` is a `HTML::Parser`, you can try to add handler-subs for start/end events with an argspec of `'line'`. Something like `use HTML::TokeParser; my $line; sub lineHandler { $line = $_[0]; } my $p = HTML::TokeParser->new($ARGV[0]); $p->handler(start => \&lineHandler, 'line'); $p->handler(end => \&lineHandler, 'line'); while (my $token = $p->get_token() ) { my @tag = @{$token}; if( $tag[0] eq 'S' \|\| $tag[0] eq 'E' ){ print "$line: $tag[@tag-1]\n" ; } }` [download] This is completly untested and "just written" after a quick scan of the HTML-Parser documentation, but I hope it helps. regards, tomte An intellectual is someone whose mind watches itself. -- Albert Camus	[reply] [d/l] [select]
Re^2: HTML::TokeParser Line numbers by jithoosin (Scribe) on Nov 24, 2005 at 14:58 UTC
Sorry.It did not work and i got error message Can't set handlers for HTML::PullParser at t1.pl line 10	[reply]
Re^3: HTML::TokeParser Line numbers by Tomte (Priest) on Nov 24, 2005 at 15:02 UTC
Hmm, unfortunate Maybe it's a viable alternative then, to look at HTML::Parser instead and use it directly to solve your problem ? regards, tomte An intellectual is someone whose mind watches itself. -- Albert Camus	[reply]


Perl-Sensitive Sunglasses
	PerlMonks