git.maemo.org Git - dh-make-perl/blob - dev/i386/libhtml-parser-perl/libhtml-parser-perl-3.56/eg/htextsub

   1 #!/usr/bin/perl -w
   2
   3 # Shows how to edit text in an HTML document.
   4
   5 use strict;
   6 my $code = shift || usage();
   7 $code = 'sub edit_print { local $_ = shift; ' . $code . '; print }';
   8 #print $code;
   9 eval $code;
  10 die $@ if $@;
  11
  12 use HTML::Parser 3.05;
  13 my $p = HTML::Parser->new(unbroken_text => 1,
  14                           default_h => [ sub { print @_; }, "text" ],
  15                           text_h    => [ \&edit_print,      "text" ],
  16                          );
  17
  18 my $file = shift || usage();
  19 $p->parse_file($file) || die "Can't open file $file: $!\n";
  20
  21 sub usage
  22 {
  23     my $progname = $0;
  24     $progname =~ s,^.*/,,;
  25     die "Usage: $progname <perlexpr> <filename>\n";
  26 }