A full list of installed (but nonstandard) modules, and where they are located:
#!/usr/bin/perl -w
use strict;
# all variables must be declared
use Getopt::Std;
# import the getopts method
use ExtUtils::Installed;
# import the package
use vars qw($opt_l $opt_s);
# declaring the two option switches
&getopts('ls');
# $opt_l and $opt_s are set to 1 or 0
unless($opt_l or $opt_s) {
# unless one switch is true (1)
die "pmods: A utility to list all installed (nonstandard) modules\n",
" Usage: pmods.pl -l # list each module and all its directories\n",
" pmods.pl -s # list just
the module names\n";
}
my $inst = ExtUtils::Installed->new();
foreach my $mod ( $inst->modules() ) { # foreach of the installed modules
my $ver = $inst->version($mod); # version
number of the module
$ver = ($ver) ? $ver : 'NONE'; # for clean operation
print "MODULE: $mod version $ver\n"; # print module names
map { print " $_\n" } $inst->directories($mod) if($opt_l);
}
Ador Dauz wrote:
hi all,is their a command to list or know what perl module installed to my linux box?
regards,
--ador_
Philippine Linux Users Group. Web site and archives at http://plug.linux.org.ph
To leave: send "unsubscribe" in the body to [EMAIL PROTECTED]Fully Searchable Archives With Friendly Web Interface at http://marc.free.net.ph
To subscribe to the Linux Newbies' List: send "subscribe" in the body to [EMAIL PROTECTED]
--
======== [DISCLAIMER] ========
This communication is intended for the addressee(s) and may contain
confidential and legally privileged information. We do not waive
confidentiality or privilege by mistransmission. If you have received
this communication in error, any use, dissemination, printing or copying
is strictly prohibited; please destroy all electronic and paper copies
and notify the sender immediately.
======== [/DISCLAIMER] ========
