RE: How to check installed Modules in perl

[Peter_Farrar]

in windows:
>ppm query




                                                                                       
                            
                    "Jaimee                                                            
                            
                    Spencer"             To:     "'Alex Cheung Tin Ka'" 
<[EMAIL PROTECTED]>, [EMAIL PROTECTED]  
                    <JSpencer@acuc       cc:                                           
                            
                    orp.com>             Subject:     RE: How to check installed 
Modules in perl                   
                                                                                       
                            
                    04/17/2002                                                         
                            
                    12:24 PM                                                           
                            
                                                                                       
                            
                                                                                       
                            




Hello Alex,

    You could run the below perl Script.  Hopes this helps.

Regards,
Jaimee


#!/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";
}


-----Original Message-----
From: Alex Cheung Tin Ka [mailto:[EMAIL PROTECTED]]
Sent: Tuesday, April 16, 2002 11:14 PM
To: [EMAIL PROTECTED]
Subject: How to check installed Modules in perl


Dear All,
    I am new to perl. I would like to know what can I do to check whether I
have installed particular module in perl.

Thanks
Alex






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