Thread Installierte Module ermitteln... (9 answers)
Opened by perli at 2003-09-12 18:24

[E|B]
 2003-09-12 19:28
#3180 #3180
User since
2003-08-08
2561 Artikel
HausmeisterIn
[Homepage] [default_avatar]
Hi!

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;
use File::Find;
use CGI::Carp qw(fatalsToBrowser);

my $installed = "";

find ( sub { push (my @files, my $File::Find::name) if /\.pm$/; }, @INC);
foreach my $i (@files){
        my $absolut = $i;
        foreach my $a (@INC){
               
 if(-e("$a") && $a ne "."){
               
         $i =~ s/$a//gi;
               
 }
        }
        $i =~ s/^\///g;
        $i =~ s/\//::/g;

        $installed .= qq~Modul: $i, absoluter Pfad: $absolut<br>~;
}

print "Content-type: text/html\n\n";
print $installed;

exit;


HTH\n\n

<!--EDIT|[E|B]|1063380620-->
Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

View full thread Installierte Module ermitteln...