Re: Perl-Module nur einbinden wenn vorhanden ?

30 Mar 2003


      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

Re: Perl-Module nur einbinden wenn vorhanden ?

Sebastian Kayser