Scripts for finding module locations

whichpm

#!/usr/bin/env perl -w
# rebx

use strict;

my $mod = shift(@ARGV);
my @customperl = qw(/path/to/perl);
push (@INC, @customperl);
(!defined($mod)) && exit 1;
unless ( eval "require $mod;1") {
    die "The module named $mod cannot be loaded: $!";
}
$mod =~ s/(\:)+/\//g;
my $modloc = $INC{"$mod.pm"};
if (!defined($modloc)) {
    print "Unable to find $mod";
    return;
}

print "Location of $mod is at " . $INC{"$mod.pm"} . "\n";

whichpy

#!/usr/bin/env python

import sys
from os.path import basename, dirname
from re import compile as regxcomp
from re import match as regxmat

INIT_BNAME = regxcomp('__init__.py')

def try_import(module_name):
    try:
      exec("import " + module_name + " as mod_name_loaded")
    except ValueError, SyntaxError:
      print "Please give a module name to check"
      return False
    except ImportError:
      print "No module named %s" % (module_name)
      return False
    except:
      print "Unhandled exception: ", sys.exc_info()[0]
      return False

    module_name_loc = mod_name_loaded.__file__
    if regxmat(INIT_BNAME, basename(module_name_loc)):
        module_name_loc = dirname(module_name_loc)
    print "Module: %s is located at %s" % (module_name, module_name_loc)
    return True

def main(module_name):

    if module_name is None:
        print "Please give a module name to check"
        return False

    return try_import(module_name)

if __name__ == '__main__':
    if main(sys.argv[-1]) is True:
      sys.exit(0)

    sys.exit(255)