ido50 has asked for the wisdom of the Perl Monks concerning the following question:
where $source and $dest are the paths to the source file and destination file. Performing this routine on any module from my program would result in the following HTML file:sub pod { my ($class, $source, $dest) = @_; my $html = Pod::Tree::HTML->new($source, $dest); $html->translate; open(HTML, $dest) or die "Can't open HTML for $source: $!"; flock(HTML, LOCK_SH); print $cgi_query->header; foreach (<HTML>) { chomp; print; } close(HTML); }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Pod::Tree::HTML
by bibo (Pilgrim) on Jul 06, 2004 at 18:54 UTC | |
by ido50 (Scribe) on Jul 08, 2004 at 19:38 UTC |