It depends on how regular your data is and how lazy you want to be. You could 
do something like this from shell:

cd $my_base_dir
for file in `grep -Rl 'head1 NAME' *`; do
echo $file `grep -A2 'head1 NAME' $file|tail -1`
done


> On Mar 31, 2017, at 2:41 PM, Michael R. Davis <[email protected]> wrote:
> 
> Houston PMs,
> I need to pull the pod NAME for all of my .pm files for a report.  There are 
> so many POD this and that's on CPAN that I cannot find a pod parser that is 
> simply like this.
> 
> my $pod = XXX->new(file=>"xxx.pm");
> my $name = $pod->name; #or $pod->head1("NAME");
> 
> Where $name would pull the "content" from the pod NAME section.
> 
> =head1 NAME
> 
> content
> 
> =cut
> 
> Does anyone have a favorite POD object?
> Mike
> 
> mrdvt92
> 
> 
> _______________________________________________
> Houston mailing list
> [email protected]
> http://mail.pm.org/mailman/listinfo/houston
> Website: http://houston.pm.org/

_______________________________________________
Houston mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/houston
Website: http://houston.pm.org/

Reply via email to