Parent Directory | Revision Log
import upstream Pod-Simple-Wiki-0.05.tar.gz
1 | #!/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__ |
ViewVC Help | |
Powered by ViewVC 1.1.26 |