Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
# $Header: Penyemakan Ejaan (html2text) $
...
                   'start_h' => [ \&start, "tagname, attr" ],
                   'end_h' => [ \&end, 'tagname' ],
                   'text_h' => [ \&text, 'dtext' ]);

Select or download this

# stack is a stack of $doc values
my @stack;
...

(close STDOUT) or die "$0: closing stdout: $!\n";