Or...slightly modifying a previously posted widget,
you could execute this, grepping for your module:
find_mod.pl | grep baz.pm
#! /usr/local/bin/perl -w
use strict;
use File::Find;
find(\&print_modules, @INC);
sub print_modules {
return unless -f and /\.pm$/;
my $mod = $File::Find::name;
print "$mod\n";
}
--- Brian Raven <[EMAIL PROTECTED]> wrote:
> -----Original Message-----
> From: Stuart Arnold
> [mailto:[EMAIL PROTECTED]
> Sent: 19 August 2004 10:23
> To: 'Wesley True';
> [EMAIL PROTECTED]
> Cc: [EMAIL PROTECTED]
> Subject: RE: How to know wich modules are installed
>
> > On a similar note, how do I find the path to my
> module, ie, module is
> "foo::baz", i want to see the full filepath >
> location.
>
> The obvious way (to me anyway) would be to iterate
> through @INC, adding
> foo/baz.pm to the end of each directory and see if
> the file exists.
>
> Alternatively, "use" the module and look in %INC.
> (See 'perldoc
> perlvar').
>
> HTH
>
> --
> Brian Raven
>
>
>
>
-----------------------------------------------------------------------
> The information contained in this e-mail is
> confidential and solely
> for the intended addressee(s). Unauthorised
> reproduction, disclosure,
> modification, and/or distribution of this email may
> be unlawful. If you
> have received this email in error, please notify the
> sender immediately
> and delete it from your system. The views expressed
> in this message
> do not necessarily reflect those of LIFFE Holdings
> Plc or any of its subsidiary companies.
>
-----------------------------------------------------------------------
>
>
> _______________________________________________
> ActivePerl mailing list
> [EMAIL PROTECTED]
> To unsubscribe:
> http://listserv.ActiveState.com/mailman/mysubs
>
__________________________________
Do you Yahoo!?
New and Improved Yahoo! Mail - Send 10MB messages!
http://promotions.yahoo.com/new_mail
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
