|
![]() ![]() ![]() ![]() ![]() |
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 |