What does this HTML::Parser() code do in Perl? [closed]

by

From the documentation:

$p = HTML::Parser->new(api_version => 3,
                       text_h => [ sub {...}, "dtext" ]);

This creates a new parser object with a text event handler subroutine that receives the original text with general entities decoded.

Edit: 

use HTML::Parser;
use LWP::Simple;
my $html = get "http://perltraining.stonehenge.com";
HTML::Parser->new(text_h => [\my @accum, "text"])->parse($html);
print map $_->[0], @accum;

Another

#!/usr/bin/perl -w
use strict;
use HTML::Parser;
my $text;
my $p = HTML::Parser->new(text_h => [ sub {$text .= shift}, 
                                     'dtext']);
$p->parse_file('test.html');
print $text;

Which, when used on a file like this:

<html>
<head>
<title>Test</title>
</head>
<body>
<h1>Test Stuff</h1>
<p>This is a test</p>
<ul>
<li>this</li>
<li>is a</li>
<li>list</li>
</ul>
</body>
</html>

produces the following output:

Test


Test Stuff
This is a test

this
is a
list

Does that help?

More Related Contents:

  1. Perl: Compare 2 hash table values
  2. Failing to install MIME::Base64 using cpan [closed]
  3. Declaring a 2D coordinate in Perl / C / C++ [closed]
  4. how to use multiple IP’s in perl script
  5. How can I use a variable as a variable name in Perl?
  6. How can I use a new Perl module without install permissions?
  7. When should I use the & to call a Perl subroutine?
  8. What’s the difference between my ($variableName) and my $variableName in Perl?
  9. How can I hook into Perl’s print?
  10. How can I combine hashes in Perl?
  11. Why do my Perl tests fail with use encoding ‘utf8’?
  12. What is the difference between my and local in Perl?
  13. Why does my Perl script exit with 137?
  14. Perl read line by line
  15. What is the difference between Perl’s ( or, and ) and ( ||, && ) short-circuit operators?
  16. How do I change, delete, or insert a line in a file, or append to the beginning of a file in Perl?
  17. How can I install a specific version of a set of Perl modules?
  18. Obtain a switch/case behaviour in Perl 5
  19. What is the difference between `read` and `sysread`?
  20. How do I extract the domain out of an URL?
  21. In Perl, what is the difference between accessing an array element using @a[$i] as opposed to using $a[$i]?
  22. Why does $foo->{bar} autovivify but %$foo doesn’t?
  23. How do I break out of a loop in Perl?
  24. Hidden features of Perl?
  25. “inappropriate ioctl for device”
  26. In Perl, how can I check from which module a given function was imported?
  27. How can I verify that a value is present in an array (list) in Perl?
  28. Perl Subroutine Prototyping — The correct way to do it
  29. Why do hash keys have different order when printing?
  30. How can I manually interpolate string escapes in a Perl string?

Leave a Comment