I tried to check if XML::Simple is installed in my system or not.
perl -e \'while (<@INC>) { while (<$_/*.pm>) { print \"$_\\n\"; } }\'
I believe your solution will only look in the root of each directory path contained in the @INC array. You need something recursive, like:
perl -e 'foreach (@INC) {
print `find $_ -type f -name "*.pm"`;
}'
Bravo for @user80168's solution (I'm still counting \'s !) but to avoid all the escaping involved with aliases and shells:
%~/ cat ~/bin/perlmod
perl -le'eval qq{require $ARGV[0]; }
? print ( "Found $ARGV[0] Version: ", eval "$ARGV[0]->VERSION" )
: print "Not installed" ' $1
works reasonably well.
Here might be the simplest and most "modern" approach, using Module::Runtime:
perl -MModule::Runtime=use_module -E '
say "$ARGV[0] ", use_module($ARGV[0])->VERSION' DBI
This will give a useful error if the module is not installed.
Using -MModule::Runtime requires it to be installed (it is not a core module).
$ perl -MXML::Simple -le 'print $INC{"XML/Simple.pm"}'
From the perlvar entry on %INC:
- %INC
The hash
%INCcontains entries for each filename included via thedo,require, oruseoperators. The key is the filename you specified (with module names converted to pathnames), and the value is the location of the file found. Therequireoperator uses this hash to determine whether a particular file has already been included.If the file was loaded via a hook (e.g. a subroutine reference, see require for a description of these hooks), this hook is by default inserted into
%INCin place of a filename. Note, however, that the hook may have set the %INC entry by itself to provide some more specific info.
If you're running ActivePerl under Windows:
C:\>ppm query * to get a list of all installed modules
C:\>ppm query XML-Simple to check if XML::Simple is installed