How to remove html tags using HTML::Parser?

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

Replies are listed 'Best First'.
Re: How to remove html tags using HTML::Parser? by gellyfish (Monsignor) on Jul 15, 2004 at 13:07 UTC
Really depends on what you mean by 'extract the tags from it' - if you mean just strip the tags and leave the text then: `#!/usr/bin/perl + use strict; use warnings; + my $the_file =<<EOH; <html> <head><title>Test</title> </head> <body> <h1>Test Title</h1> <p>This is a test</p></body></html> EOH + use HTML::Parser; my $parser = HTML::Parser->new( text_h => [ sub { print shift; },"dtex +t" ]); + + $parser->parse($the_file);` [download] Will do what you want. Otherwise you had better explain in more detail. Update: Okay - but it's not much more difficult to get the stuff into a variable - this is an adaptation to put each separate bit of text into an array element: #!/usr/bin/perl use strict; use warnings; my $the_file =<<EOH; <html> <head><title>Test</title> </head> <body> <h1>Test Title</h1> <p>This is a test</p></body></html> EOH use HTML::Parser; my $parser = HTML::Parser->new( text_h => [ \&text_handler,"self,dtext +" ], start_document_h => [\&init, "self"] ) +; + $parser->parse($the_file); print @{$parser->{_private}->{text}}; sub init { my ( $self ) = @_; $self->{_private}->{text} = []; } sub text_handler { my ( $self, $text) = @_; push @{$self->{_private}->{text}}, $text; } [download] Maybe I should update The very old tutorial. /J\	[reply] [d/l] [select]
Re^2: How to remove html tags using HTML::Parser? by bart (Canon) on Jul 15, 2004 at 15:42 UTC
Come on, don't be shy, point him to your old HTML::Parser tutorial. If you don't, I will. Oldie, but goodie. To the OP: reconsider HTML::TokeParser, or likely even better yet, HTML::TokeParser::Simple, as an alternative. It's a different approach, which I personally find a lot easier: you get a stream of tokens (an opening or closing tag, a piece of text), which you can read one at a time, like lines from a file, instead of a bunch of callbacks.	[reply]
Re^3: How to remove html tags using HTML::Parser? by gellyfish (Monsignor) on Jul 15, 2004 at 16:01 UTC
I had forgotten quite how old that was - last updated on 12 December 1999, I can't remember how many times I have thought about updating it in the last 5 years, maybe if I get some interest I might get around to it .... /J\	[reply]
Re^4: How to remove html tags using HTML::Parser? by Anonymous Monk on Jan 16, 2008 at 19:38 UTC
Re^5: How to remove html tags using HTML::Parser? by gellyfish (Monsignor) on Jan 08, 2009 at 12:10 UTC


Welcome to the Monastery
	PerlMonks