in reply to PodHead Census
A quick and dirty counter. Change your starting directory accordingly.
$ find /usr/local/lib/perl5/5.8.1/ -name "*.pm" -or -name "*.pod" | \ xargs perl -lne 'print if s/^=head1 //' | \ perl -lne '$ndx{$_}++;END{for(sort{$ndx{$b}<=>$ndx{$a}} keys %ndx) {exit if$count++>30;print"$_ => $ndx{$_}"}}'
resulting in
NAME => 453 DESCRIPTION => 436 SYNOPSIS => 333 SEE ALSO => 211 AUTHOR => 200 BUGS => 74 COPYRIGHT => 51 AUTHORS => 46 EXAMPLES => 42 HISTORY => 29 NOTES => 29 METHODS => 26 CAVEATS => 23 NOTE => 19 DIAGNOSTICS => 18 AUTHOR AND COPYRIGHT => 14 ABSTRACT => 14 EXAMPLE => 13 ENVIRONMENT => 13 COPYRIGHT AND LICENSE => 12 CONSTRUCTOR => 12 LICENSE => 12 FUNCTIONS => 11 OPTIONS => 9 Utility Changes => 9 WARNING => 8 Modules and Pragmata => 8 Incompatible Changes => 8 Reporting Bugs => 8 EXPORTS => 8 COPYRIGHT AND DISCLAIMERS => 7
|
---|
In Section
Meditations