Pod-Simple-Wiki/examples/pod2wiki_simple.pl

#!/usr/bin/perl -w

#######################################################################
#
# A simple pod2wiki filter demo. See pod2wiki.pl for a more complete
# utility.
#
# reverse('©'), May 2003, John McNamara, jmcnamara@cpan.org
#

use strict;
use Pod::Simple::Wiki;


my $parser = Pod::Simple::Wiki->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__
1	dpavlin	3	#!/usr/bin/perl -w
2
3			#######################################################################
4			#
5			# A simple pod2wiki filter demo. See pod2wiki.pl for a more complete
6			# utility.
7			#
8			# reverse('©'), May 2003, John McNamara, jmcnamara@cpan.org
9			#
10
11			use strict;
12			use Pod::Simple::Wiki;
13
14
15			my $parser = Pod::Simple::Wiki->new();
16
17
18			if (defined $ARGV[0]) {
19			open IN, $ARGV[0] or die "Couldn't open $ARGV[0]: $!\n";
20			} else {
21			IN = STDIN;
22			}
23
24			if (defined $ARGV[1]) {
25			open OUT, ">$ARGV[1]" or die "Couldn't open $ARGV[1]: $!\n";
26			} else {
27			OUT = STDOUT;
28			}
29
30
31			$parser->output_fh(*OUT);
32			$parser->parse_file(*IN);
33
34
35			__END__