Font
[thread]35[/thread]

Installierte Module ermitteln...

Reader: 1


<< >> 10 entries, 1 page
perli
 2003-09-12 18:24
#3177 #3177
User since
2003-09-12
23 articles
BenutzerIn
[default_avatar]
Hallo,

ich versuche innerhalb eines Perlscripts zu prüfen, ob ein Modul installiert ist und es nur dann über use bzw. require einbinden.
Habe nur Infos über ein Tool TellMe.pl gefunden und auch eine Demo. Genau so etwas suche ich. Jedoch der entsprechende Link auf perlhelp.de funktioniert nicht. Auch sonst kann ich das Tool nirgends zum Download finden.

Kann mir jemand weiterhelfen oder eine Alternative zu meinem Problem nennen?

Danke im voraus & Gruss,
Perli
eisbeer
 2003-09-12 18:32
#3178 #3178
User since
2003-08-29
347 articles
BenutzerIn
[Homepage] [default_avatar]
Das script TellMe.pl kenn ich ehrlichgesagt nicht (bin ich
jetzt raus :) ?). Aber du kannst es ja so machen:

Code: (dl )
1
2
3
4
eval {
use Foo::Bar;
}
die "Error: $@" if ($@);


So oder so ähnlich sollte das sein :)
Die meisten PC Probleme befinden sich zwischen Bildschirm und Stuhl...
eisbeer
 2003-09-12 18:34
#3179 #3179
User since
2003-08-29
347 articles
BenutzerIn
[Homepage] [default_avatar]
Ne des isch quark was ich geschrieben hab, sorry, sekunde bitte

¤dit: Sorry ich find auf anhieb dochnix und muss jetzt gehn, melde mich später wieder\n\n

<!--EDIT|eisbeer|1063377390-->
Die meisten PC Probleme befinden sich zwischen Bildschirm und Stuhl...
[E|B]
 2003-09-12 19:28
#3180 #3180
User since
2003-08-08
2561 articles
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]
Strat
 2003-09-12 21:41
#3181 #3181
User since
2003-08-04
5246 articles
ModeratorIn
[Homepage] [default_avatar]
oder:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use File::Find ();

foreach my $root (@INC) {
&File::Find::find(
sub {
return unless /\.pm/;
my $module = $File::Find::name;
$module =~ s/^\Q$root\E\/(.+)\.pm/$1/
and $module =~ s/[\/\\]/::/g
and print $module. "\n";
},
$root
);
} # foreach
perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/
SirLant
 2003-09-12 22:20
#3182 #3182
User since
2003-08-04
516 articles
BenutzerIn
[default_avatar]
Wieso nimmste nich das hier:
http://www.cgi-world.de/cgi-bin....verinfo
--Programming today is a race between Software Enginers striving to build bigger and better idiot-proof Programs,
and the Universe trying to produce bigger and better idiots.
So far, the Universe is winning!
[E|B]
 2003-09-12 22:44
#3183 #3183
User since
2003-08-08
2561 articles
HausmeisterIn
[Homepage] [default_avatar]
@SirLant

:D Sehr nett! Daher habe ich allerdings auch den oben geposteten Ausschnitt her! :D *lololol*
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]
Dubu
 2003-09-13 14:14
#3184 #3184
User since
2003-08-04
2145 articles
ModeratorIn + EditorIn

user image
[s]Ohne Quellenangabe? Ts, ts, ts...[/s]

format_c hat natürlich recht (s.u.), ich Depp... *lol*
Seinen eigenen Code darf Erik natürlich ohne Quellenangabe posten. ;)\n\n

<!--EDIT|Dubu|1063465946-->
format_c
 2003-09-13 16:39
#3185 #3185
User since
2003-08-04
1706 articles
HausmeisterIn
[Homepage] [default_avatar]
Iss doch seine Seite ;)

Gruß Alex
perli
 2003-09-15 10:20
#3186 #3186
User since
2003-09-12
23 articles
BenutzerIn
[default_avatar]
SUPER !!!

Vielen Dank für die Tipps.

Gruss,
Perli
<< >> 10 entries, 1 page



View all threads created 2003-09-12 18:24.