Beefy Boxes and Bandwidth Generously Provided by pair Networks
Don't ask to ask, just ask
 
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

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://314288]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (8)
As of 2017-02-24 21:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?






    Results (363 votes). Check out past polls.