Help for this page
use strict; use warnings; ... } print "$_ - $ext{$_}\n" for keys %ext;
use strict; use warnings; ... ++$ext{$1} for map { -f && /\.([^.]+)$/ ? $1 : () } readdir $dh; print "$_ - $ext{$_}\n" for keys %ext;
www.com | www.net | www.org
No recent polls found