Name	Size	Mode	Actions
hanchors	1138	0644	editdlrm
hdump	541	0644	editdlrm
hform	1846	0644	editdlrm
hlc	547	0644	editdlrm
hrefsub	2782	0644	editdlrm
hstrip	1714	0644	editdlrm
htext	548	0644	editdlrm
htextsub	788	0644	editdlrm
htitle	434	0644	editdlrm

#!/usr/bin/perl -w # Shows how to mangle all plain text in an HTML document, using an arbitrary # Perl expression. Plain text is all text not within a tag declaration, i.e. # not in

, but possibly between

and

use strict; my $code = shift || usage(); $code = 'sub edit_print { local $_ = shift; ' . $code . '; print }'; #print $code; eval $code; die $@ if $@; use HTML::Parser 3.05; my $p = HTML::Parser->new(unbroken_text => 1, default_h => [ sub { print @_; }, "text" ], text_h => [ \&edit_print, "text" ], ); my $file = shift || usage(); $p->parse_file($file) || die "Can't open file $file: $!\n"; sub usage { my $progname = $0; $progname =~ s,^.*/,,; die "Usage: $progname \n"; }