#!/usr/bin/perl -w # perl 5.8 feature, open a scalar as a filehandle open my $fh, '>', \my $pod or die "Couldn't open filehandle: $!"; while (<DATA>) { print $fh $_ if /^=/ .. /^=cut/ } print $pod; __DATA__ # Some code my $foo = 'bar'; =head1 This is a B<heading> This is a paragraph. This is a verbatim section. This is I<B<another>> paragraph =cut
--
John.
In reply to Re: Question regardin Pod::Simple usage
by jmcnamara
in thread Question regardin Pod::Simple usage
by atcroft
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |