Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re: PodHead Census

by rnahi (Curate)
on Dec 12, 2003 at 12:23 UTC ( #314288=note: print w/ replies, xml ) Need Help??


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


Comment on Re: PodHead Census
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://314288]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (9)
As of 2014-10-31 18:42 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (223 votes), past polls