Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

strip pod filter

by davidrw (Prior)
on Apr 20, 2006 at 02:31 UTC ( #544489=snippet: print w/replies, xml ) Need Help??
Description: Re: Perl Module Stripping made me think to post this .. yeah, i realize there's Pod::Stripper -- i must have done a lazy cpan search when i needed to write this and missed it; if nothing else it's a nice quick little Pod::Parser example, and really is basically (though written independently) exactly what Pod::Stripper does (Pod::Stripper inherits from Pod::Parser). I have this installed on my dev server as /usr/local/bin/unpod
unpod foo.pm cat foo.pm | unpod
#!/usr/bin/perl

# filter takes a filename as arg (otherwise stdin) and sends pod-strip
+ped content to stdout.

use Pod::Parser;
package MyParser;
use base Pod::Parser;

sub initialize {
  my $self = shift;
  $self->parseopts(-want_nonPODs=>1);
}
sub preprocess_paragraph {
    my ($self, $text, $line_num) = @_;
    print $text if $self->cutting;
    return $text;
}

package main;

my $parser = new MyParser();
$parser->parse_from_file($ARGV[0], '/dev/null');
Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: snippet [id://544489]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2022-12-09 23:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?