Ist Module::Load unsicher (gelöst) - #187357 (Fragen zu Perl-Modulen)

bianca

2017-09-06 19:00

User since
2009-09-13
7016 Artikel
BenutzerIn

user image

2017-09-06T14:25:14 Max_Perlbeginner
Da ich also zu Beginn noch gar nicht weiß, welche Plugins verwendet oder gar installiert werden, muss ich diese dynamisch bei Bedarf nachladen.

Wenn man das Modul als Parameter hat könnte man ein use versuchen, z. B. so:

Code (perl): (dl )

my $mname = 'Win32::DriveInfo';
my $modul = 1;
eval "use $mname; 1;" or $modul = 0;
if ($modul) {
        say "... Modul ist geladen ...";
        say join '*',Win32::DriveInfo::DriveSpace('c');
}
else { say "... Modul fehlt ..." }

Bin nur nicht sicher, ob ein eval an der Stelle nicht zu gewagt ist aber funktionieren tut es - zumindest bei mir mit 5.20.2 auf Windows.

10 print "Hallo"
20 goto 10