File: pod2wiki_simple.pl

package info (click to toggle)
libpod-simple-wiki-perl 0.08-3
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 268 kB
  • ctags: 98
  • sloc: perl: 1,980; makefile: 44
file content (35 lines) | stat: -rw-r--r-- 652 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
#!/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__