Die Bearbeitung eines Plex-Skriptes

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]

runplex.pl
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.
 

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003