Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
find( sub{ $extns{ lc($1) }++ if -f _ and m[\.([^\.]+?)$]; }, @ARGV );

print "$_ => $extns{ $_ }" for sort keys %extns;
  2. or download this
    C:\Perl>p:371407 bin lib site packages
0 => 1
...
xst => 1
yml => 4
zip => 1