Re: pod2html question

[jmcnamara]

in reply to pod2html question

Here is a small filter program based on Pod::Simple::HTML and the search.cpan CSS that should give you more or less the same output that you see on that site:

    #!/usr/bin/perl -w

    use strict;
    use Pod::Simple::HTML;

    my $parser = Pod::Simple::HTML->new();

    if (defined $ARGV[0]) {
        open IN, $ARGV[0]  or die "Couldn't open $ARGV[0]: $!\n";
    } else {
        *IN = *STDIN;
    }

    if (defined $ARGV[1]) {
        open OUT, ">$ARGV[1]" or die "Couldn't open $ARGV[1]: $!\n";
    } else {
        *OUT = *STDOUT;
    }

    $parser->index(1);
    $parser->html_css('http://search.cpan.org/s/style.css');

    $parser->output_fh(*OUT);
    $parser->parse_file(*IN);

    __END__

Update: This utility is now available on CPAN as pod2cpanhtml which is install as part of App::Pod2CpanHtml.

--
John.