[Perl] installierte Module feststellen, wie?

Computer: Software & Programmierung Perl & CGI
#1

Gibt es eine Möglichkeit alle installierten (Perl-) Module mit einem Perl-Script festzustellen? Ich weis nämlich nicht welche mein Provider install. hat und möchte ihm nicht jedesmal eine Mail schreiben wenn ich eins einsetzen will.

mfg Slick

#2

Gibt es eine Möglichkeit alle installierten (Perl-) Module mit
einem Perl-Script festzustellen? Ich weis nämlich nicht welche
mein Provider install. hat und möchte ihm nicht jedesmal eine
Mail schreiben wenn ich eins einsetzen will.

yep
So geht’s:

#!/usr/local/bin/perl

use strict;
use CGI qw/:standard/;
use File::Find;

print header,
 start\_html,
 h1("Perl Environment: $ENV{SERVER\_NAME}"),
 p("Perl Version: $]"),
 p("CGI.pm Version: $CGI::VERSION"),
 p("Library Path (\@INC):"),
 ul(li([@INC])),
 p('Modules:');

foreach my $dir (@INC) {
 my @mods;
 find(sub { push @mods, $File::Find::name if /\.pm$/ }, $dir);
 my @mods2 = grep { !/\_vti\_cnf/ } @mods;
 print ul(li("$dir"), ul(li([sort @mods2])));
}

Klaus

#3

Danke! Funzt prima! (o.T.)
.