use ExtUtils::Installed;
my $inst = ExtUtils::Installed->new();
print join "\n", $inst->modules();
[download]

-- Randal L. Schwartz, Perl hacker

_________
broquaint

Something that's been useful to me in the past is the pmtools suite from Tom Christiansen. I can't seem to find a working link to them, so I've uploaded the tarball to my server.

http://ampa.pair.com/~mikeirw/pmtools-1.00.tar.gz

The one that you'll want to check out is called 'pminst'.

Does anyone have an updated location for pmtools? This post is 2 years old and the link is dead. Or has pmtools morphed into some other package that I can use to find installed pms?

---

"Look, Shiny Things!" is not a better business strategy than compatibility and reuse.



---

OSUnderdog

Debian maintains a pmtools package, and you can get the source at http://ftp.debian.org/debian/pool/main/p/pmtools/pmtools_1.00.orig.tar.gz.

perl -e 'use UnknownModule'
[download]

Can't locate UnknownModule.pm in @INC (@INC contains: blah blah blah
[download]

--

flounder

Don't remember where I got this code, I can't take credit for writing it. I probably found it searching here, infact, I'm positive that I did.

Uses File::Find, quite handy..

I know its lame to not remember the author.

Here:

#!/usr/bin/perl
# list all of the perl modules installed
use File::Find ;
for (@INC) { find(\&modules,$_) ; }

sub modules
{
        if (-d && /^[a-z]/) { $File::Find::prune = 1 ; return }
        return unless /\.pm$/ ;
        my $fullPath = "$File::Find::dir/$_";
        $fullPath =~ s!\.pm$!!;
        $fullPath =~ s#/(\w+)$#::$1# ;
        print "$fullPath \n";
}
[download]



--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--
perl -e '$a="3567"; $b=hex($a); printf("%2X\n",$a);'
--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--~~--

Which would only return a list of the modules you installed using ppm (and it's query *, not just query).

 


______crazyinsomniac_____________________________ Of all the things I've lost, I miss my mind the most. perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"