use ExtUtils::Installed; use List::Util qw/max/; my $inst = ExtUtils::Installed->new; my %h = map { ( $_, $inst->version($_) || 'undef' ) } $inst->modules; my $max = max map length, keys %h ; for ( sort keys %h ) { printf "%-${max}s %s\n", $_, $h{$_}; }
In reply to Re: Installed Module
by borisz
in thread Installed Module
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |