Re: INFO PLEASE

[Eric Walker]

Jaimee Spencer wrote:

 

Hello, Eric.

   Copy and paste the below code and try it out.  You will need the File::Find module installed.

Regards,
Jaimee

#!/usr/bin/perl -w

# list all of the perl modules installed

use strict;
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";
}

-----Original Message-----
From: Eric Walker [mailto:[EMAIL PROTECTED]]
Sent: Wednesday, March 26, 2003 10:05 AM
To: [EMAIL PROTECTED]
Subject: INFO PLEASE

how can I see where modules are installed no matter if they are personal or come with perl
also how can I tell what functions are available for them.
Thanks

Thanks....

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]