.------[ Steve Gilbert wrote (2003/03/28 at 09:28:17) ]------
|
| Does anyone know of a way to enumerate all the
| available modules on a system?
|
`-------------------------------------------------
I'm not sure why you'd want to do it, but does it.
#!/usr/bin/perl
use File::Find;
my $count = 0;
find(\&wanted, @INC);
sub wanted {
if( $_ =~ /\.pm$/ ) {
print "$count: $File::Find::name\n";
$count++;
}
}
---------------------------------
Frank Wiles <[EMAIL PROTECTED]>
http://frank.wiles.org
---------------------------------
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
