Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
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?
[Corion]: Tabish: What are "tow" packages? Maybe you want to use PAR::Packer to copy them and your main program into one (ugly) script for distribution?

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (5)
As of 2017-12-11 09:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What programming language do you hate the most?




















    Results (288 votes). Check out past polls.

    Notices?