Re^2: Counting the Extensions of the Directory

[Mago]

Ok ! Yes, you are certain, with \w+ is very better.

perl -e 'while(<*>){if(-f && /\.(\w+)$/){$e{$1}++}}print "$_ -> $e{$_}
+\n" for keys %e'

Thanks;