I used this code
#! perl -slw use strict; use File::Find; my %extns; find( sub{ $extns{ lc($1) }++ if -f _ and m[\.([^\.]+?)$]; }, @ARGV ); print "$_ => $extns{ $_ }" for sort keys %extns;
to produce this list. I omitted the src directories, but include my packages directory where I build modules not available via PPM.
C:\Perl>p:371407 bin lib site packages 0 => 1 09d => 1 1 => 1 25 => 1 33 => 1 44 => 1 5 => 1 adjust => 1 al => 483 bak => 15 bat => 57 bpf => 5 bpg => 1 bpr => 5 bs => 136 c => 55 cfg => 7 cgi => 16 css => 1 cur => 1 cxx => 1 def => 6 dll => 139 e2x => 6 eg => 2 emf => 1 enc => 17 exe => 6 exists => 18 exp => 133 foo => 13 gif => 7 guess => 1 gz => 7 h => 218 html => 4 icon => 3 in => 4 inc => 1 inl => 22 iss => 1 ix => 30 ld => 3 lib => 138 libnet => 2 m => 20 m4 => 3 mak => 6 make => 1 makefile_pl => 1 mask => 3 mirror => 1 mms => 1 msg => 1 npuz => 1 obj => 17 old => 1 packlist => 65 pbi => 1 pc => 2 pdb => 19 perl => 2 pkg => 58 pl => 544 pm => 925 pm~ => 2 png => 2 pod => 292 ppd => 62 ppm => 1 ps => 1 pub => 1 self => 1 sgml => 1 sh => 2 skip => 1 sub => 1 t => 51 tar => 2 terms => 2 txt => 33 types => 1 uu => 2 vms => 1 wmf => 1 xbm => 12 xpm => 14 xs => 6 xst => 1 yml => 4 zip => 1
In reply to Re: My Perl filename dictionary project
by BrowserUk
in thread My Perl filename dictionary project
by brian_d_foy
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |