Simple pod2rtf (Rich Text Format) converter based on the
Pod::Simple::RTF subclass of
Pod::Simple.
See also pod2rtf.
Usage: pod2rtf [infile] [outfile]
If infile isn't defined defaults to STDIN
If outfile isn't defined defaults to STDOUT
#!/usr/bin/perl -w
use strict;
use Pod::Simple::RTF;
my $parser = Pod::Simple::RTF->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->output_fh(*OUT);
$parser->parse_file(*IN);
__END__