Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
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?
[jdporter]: omg, I f love Perl!
[choroba]: say unpack 'H*', pack 'B*', $mask =~ /0b([01]+)/;
[choroba]: use C instead of H to get the decimal number
[erix]: ( no love like f love )
[choroba]: f* love

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (9)
As of 2018-02-20 16:35 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    When it is dark outside I am happiest to see ...














    Results (272 votes). Check out past polls.

    Notices?