|
|
| runplex.pl |
while(<$fh>) {
chomp;
next if /^#/;
my @cmd = split /\s+/;
die "$cmdname: Unknown command in $script: $cmd[0]\n"
unless defined $cmds{$cmd[0]};
&{$cmds{$cmd[0]}}(@cmd[1..$#cmd]);
}
$fh->close;
|
![]() | Kommentare und leere Zeilen werden überlesen.
|
![]() | Alles andere wird als Kommando betrachtet
(auf einer Zeile, Leerzeichen dienen als Trenner).
|
|
| Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |