Die Ausführung von Kommandos

runplex.pl

my $cf = $top->Frame(); $cf->pack('-side' => 'top', @fillx); $cf->Label('-text' => "Command:")->pack('-side' => 'left'); my $command = ""; my $cmd_entry = $cf->Entry('-textvariable' => \$command); $cmd_entry->bind('<Control-u>', sub { $command = "" }); $cmd_entry->bind('<Return>', \&execute_command); $cmd_entry->pack('-side' => 'left', @expandx); $cf->Button( '-text' => "Execute", '-command' => \&execute_command, )->pack('-side' => 'left');

Die Kommandozeile ist mit der Variablen $command verbunden.

Wenn bei der rechten Listbox einer der vorgegebenen Testfälle selektiert wird, dann wird $command entsprechend gesetzt.

Mit dem Drücken von Return oder dem Execute-Button kann das Kommando ausgeführt werden.

	Die Kommandozeile ist mit der Variablen `$command` verbunden.
	Wenn bei der rechten Listbox einer der vorgegebenen Testfälle selektiert wird, dann wird `$command` entsprechend gesetzt.
	Mit dem Drücken von Return oder dem `Execute`-Button kann das Kommando ausgeführt werden.