|
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 |