<html><head><meta http-equiv="Content-Type" content="text/html charset=us-ascii"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class="">It depends on how regular your data is and how lazy you want to be. You could do something like this from shell:<div class=""><br class=""></div><div class="">cd $my_base_dir</div><div class="">for file in `grep -Rl 'head1 NAME' *`; do<br class="">echo $file `grep -A2 'head1 NAME' $file|tail -1`<br class="">done<br class=""><br class=""></div><div class=""><br class=""><div><blockquote type="cite" class=""><div class="">On Mar 31, 2017, at 2:41 PM, Michael R. Davis <<a href="mailto:mrdvt92@yahoo.com" class="">mrdvt92@yahoo.com</a>> wrote:</div><br class="Apple-interchange-newline"><div class=""><div class=""><div style="background-color: rgb(255, 255, 255); font-family: 'Courier New', courier, monaco, monospace, sans-serif; font-size: 16px;" class=""><div id="yui_3_16_0_ym19_1_1490988826118_3737" class="">Houston PMs,</div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class="">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.</div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class=""><br class=""></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class="">my $pod = XXX->new(file=>"xxx.pm");</div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class="">my $name = $pod->name; #or $pod->head1("NAME");</div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class=""><br class=""></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class="">Where $name would pull the "content" from the pod NAME section.</div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class=""><br class=""></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class="">=head1 NAME<br class=""></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class=""><br class=""></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class="">content</div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class=""><br class=""></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class="">=cut</div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class=""><br class=""></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class="">Does anyone have a favorite POD object?<br class=""></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class="">Mike</div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class=""><br class=""></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class="">mrdvt92</div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class=""><br class=""></div><div id="yui_3_16_0_ym19_1_1490988826118_3737" dir="ltr" class=""><br class=""></div></div></div>_______________________________________________<br class="">Houston mailing list<br class=""><a href="mailto:Houston@pm.org" class="">Houston@pm.org</a><br class="">http://mail.pm.org/mailman/listinfo/houston<br class="">Website: http://houston.pm.org/</div></blockquote></div><br class=""></div></body></html>