Module in Verzeichnis einbinden und ausführen

[Christian Kruse]

你好 martinbb,

Hat wer eine Idee? Hab schon ein bisschen rumprobiert, aber komm nicht weiter.

Naja, require() und der ->-Operator sollten dir helfen. Schnelles Beispiel ein Modul test.pm:

package test;  
  
use strict;  
  
sub doit {  
  print "Loaded!\n";  
}  
  
1;  
# eof

Und im Haupt-Programm dann:

#!/usr/bin/perl -w  
  
use strict;  
  
my $mod = $ARGV[0];  
my $clss = substr($mod,0,length($mod)-3);  
  
require $mod;  
  
$clss->doit();  
  
#eof

Aufrufen kannst du das Script über z. B. ./test.pl test.pm. Das sollte dir weiterhelfen, wenn nicht: frage.

再见,
 克里斯蒂安