http://qs1969.pair.com?node_id=544489

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');