|
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 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |