Copyright © 2007 Robert Bienert
Zusammenfassung
Dieser Artikel beschreibt kurz, aber trotzdem auführlich genug, wie man in Perl zur Laufzeit Module nachladen kann. Auf diese Art und Weise lassen sich z.B. Plugins realisieren.
Inhaltsverzeichnis
Das folgende Beispiel zeigt eine simple Idee der Implementierung: Es wird durch alle Perl-Module – Dateien mit der Endung .pm
– in einem bestimmten Verzeichnis iteriert und anschließend das entsprechende Modul mittels eval
und use
geladen.
Beispiel 1. Durchsuchen eines Verzeichnisses nach Perlmodulen und Laden dieser
my$pm
;opendir
; while (DH
,'db'
$pm
=readdir
) {
DH
next
if$pm
=~/^\./
;$pm
=~/([[:alpha:]]+)\.pm/
;eval
}
"use db::
$1
"closedir
;DH