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" ; } }
In reply to HTML::TokeParser Line numbers by jithoosin
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |