|
my $name; my $dir; my @files = (); my @tests = (); my %cmds = ( 'dir' => sub { $dir = $_[0] }, 'load' => sub { push(@files, $_[0]) }, 'name' => sub { $name = join(" ", @_) }, 'test' => sub { push(@tests, {'tag' => shift @_, 'cmd' => [@_]}) }, ); |
Es ist sehr typisch in Perl, statt einer
switch-Anweisung wie sie von C her bekannt ist,
ein assoziatives Array zu verwenden, das den einzelnen Fällen
(typischerweise anonyme) Prozeduren zuweist.
| |
Hier werden den Prozeduren alle hinter dem Kommandonamen
aufgeführten Parameter übergeben.
| |
In @files werden die zu ladenden Dateien notiert,
in @tests die vorgegebenen Testfälle.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |