OT:Perl-Module nur einbinden wenn vorhanden ?
Hallo Leute, hat jemand eine Idee, wie ich es anstellen kann, dass ein Perl-Modul nur dann eingebunden wird, wenn es auch vorhanden ist. Also etwa wie folgend: --------------------------------------------- #!/usr/bin/perl -w my ($Verz, $installiert, $modul); foreach $Verz ( @INC ) { #--- nach dem DBI-Modul suchen $modul = "$Verz"."/DBI.pm"; if( -e "$modul" ) { $installiert = 1; last; }; }; if( $installiert ) { use DBI; }; --------------------------------------------- dies geht natuerlich so nicht, aber so was aehnliches hab ich vor. Erich
Hi Erich, erich@suse.de schrieb am Sonntag, 30. Marz 2003 16:52:
Hallo Leute, hat jemand eine Idee, wie ich es anstellen kann, dass ein Perl-Modul nur dann eingebunden wird, wenn es auch vorhanden ist. Also etwa wie folgend:
--------------------------------------------- #!/usr/bin/perl -w my ($Verz, $installiert, $modul);
foreach $Verz ( @INC ) { #--- nach dem DBI-Modul suchen $modul = "$Verz"."/DBI.pm"; if( -e "$modul" ) { $installiert = 1; last; }; };
if( $installiert ) { use DBI; };
Mit require kannst Du u.a. auf ein Modul in @INC prufen und mit eval das Ergebnis abfangen. #!/usr/bin/perl if (eval {require DBI}) { use DBI; } Siehe auch perldoc -f eval perldoc -f require Gruss, Sebastian
participants (2)
-
Erich Lindner
-
Sebastian Kayser