This will show you what directories and files are in @INC. Using a similar
approach, you could "drill down" into further subdirectories as needed.
Short script shown first, results shown below the script.
#!/usr/bin/perl -w
use strict;
my @subdirs = ();
my @files = ();
foreach my $dir(@INC) {
chdir $dir;
opendir(DIR,$dir);
while (my $line = readdir(DIR)) {
push(@subdirs, $line) if -d $line;
push(@files, $line) if -f $line and $line =~ /\.pm$/;
}
closedir(DIR);
}
print "Subdirectories: \n";
foreach my $subdir(@subdirs) {
chdir $subdir;
opendir(SUBDIR, $subdir);
while (my $sub = readdir(SUBDIR)) {
print "$sub \n" if -d $sub;
push(@files, $sub) if -f $sub and $sub =~ /\.pm$/;
}
closedir(SUBDIR);
}
print "\n\nFiles: \n";
foreach my $module(@files) {
print "$module \n";
}
RESULTS:
Subdirectories
.
..
auto
ActivePerl
Archive
Bundle
Compress
Digest
File
Font
HTML
HTTP
LWP
MIME
Net
Pod
PPM
SOAP
UDDI
URI
Win32
Win32API
WWW
XML
XMLNews
CGI
Mail
Time
Date
DBIx
DBI
DBD
PDF
Text
Business
Mysql
Apache
Config
Spreadsheet
Email
WML
Geography
Image
Finance
MLDBM
.
..
lib
.
..
lib
.
..
site
Components
faq
images
lib
perl
Windows
Files:
AnyDBM_File.pm
attributes.pm
attrs.pm
AutoLoader.pm
AutoSplit.pm
autouse.pm
B.pm
base.pm
Benchmark.pm
blib.pm
ByteLoader.pm
bytes.pm
Carp.pm
CGI.pm
charnames.pm
constant.pm
CPAN.pm
Cwd.pm
DB.pm
diagnostics.pm
DirHandle.pm
Dumpvalue.pm
DynaLoader.pm
English.pm
Env.pm
Errno.pm
Exporter.pm
Fatal.pm
Fcntl.pm
fields.pm
FileCache.pm
FileHandle.pm
filetest.pm
FindBin.pm
integer.pm
IO.pm
less.pm
lib.pm
locale.pm
O.pm
Opcode.pm
open.pm
ops.pm
overload.pm
POSIX.pm
re.pm
Safe.pm
SDBM_File.pm
SelectSaver.pm
SelfLoader.pm
Shell.pm
sigtrap.pm
Socket.pm
strict.pm
subs.pm
Symbol.pm
Test.pm
Thread.pm
UNIVERSAL.pm
utf8.pm
vars.pm
warnings.pm
XSLoader.pm
Config.pm
Writer.pm
Digest.pm
LWP.pm
MD5.pm
OLE.pm
PPM.pm
SHA.pm
URI.pm
Win32.pm
DBI.pm
PDF.pm
Mysql.pm
User.pm
CDDB_get.pm
MLDBM.pm
Digest.pm
LWP.pm
MD5.pm
OLE.pm
PPM.pm
SHA.pm
URI.pm
Win32.pm
DBI.pm
PDF.pm
Mysql.pm
User.pm
CDDB_get.pm
MLDBM.pm
Digest.pm
LWP.pm
MD5.pm
OLE.pm
PPM.pm
SHA.pm
URI.pm
Win32.pm
DBI.pm
PDF.pm
Mysql.pm
User.pm
CDDB_get.pm
MLDBM.pm
Scot R.
inSite
-----Original Message-----
From: Alex [mailto:[EMAIL PROTECTED]
Sent: Monday, June 23, 2003 10:31 AM
To: [EMAIL PROTECTED]
Subject: perl-modules
Hello,
is there a way of finding out, which modules are installed on a remote
machine using a script?
there's this scenario:
I will have a website up soon, with CGI's - but I don't know, what
modules are installed... so I'd write a script, that shows / lists all
available modules...
but how do you do that?
cheers,
Alex mailto:[EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
