git.maemo.org Git - pkg-perl/blob - deb-src/libhtml-parser-perl/libhtml-parser-perl-3.56/eg/htitle

   1 #!/usr/bin/perl
   2
   3 # This program will print out the title of an HTML document.
   4
   5 use strict;
   6 use HTML::Parser ();
   7
   8 sub title_handler
   9 {
  10     my $self = shift;
  11     $self->handler(text => sub { print @_ }, "dtext");
  12     $self->handler(end  => "eof", "self");
  13 }
  14
  15 my $p = HTML::Parser->new(api_version => 3,
  16                           start_h => [\&title_handler, "self"],
  17                           report_tags => ['title'],
  18                          );
  19 $p->parse_file(shift || die) || die $!;
  20 print "\n";
  21