Thread Bad name after...
(52 answers)
Opened by bianca at 2015-02-19 12:08
Wenn ich mein Hauptscript nach deiner Idee ändere und so laufen lassen:
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 #!/usr/bin/perl use strict; use warnings; my @dispatchtab = ( { moduldatei => 'test_extern.pl', aufruf_sub => \&testsub, aufruf_neu => 'testsub', }, { moduldatei => 'test_extern2.pl', aufruf_sub => \&testsub, aufruf_neu => 'testsub', }, # hier sind natürlich noch ganz viele ); foreach my $ref (@dispatchtab) { # nur der Code innerhalb dieser Schleife darf geändert werden, sonst nichts! package MyModule; require $ref->{moduldatei}; eval $ref->{aufruf_neu}."('a')"; } Quote Was hab ich übersehen? 10 print "Hallo"
20 goto 10 |