Laden/Ausführen/Anzeigen Programm via GUI: Wie implementiere ich das in PERL/TK? - #42530 (Graphische Oberflächen)

Alexfo85

2004-08-23 03:29

User since
2004-08-18
20 Artikel
BenutzerIn
[default_avatar]

Hi
Versuchs mal hiermit:

Code: (dl )

sub Programm_Ausfuehren {
        my $proggi = $laden_entry->get(); #Eintrag holen
        if(!$proggi){return 1;}            # Nix machen wenn kein Program angegeben
        $protokoll->insert('end', qx(perl.exe $proggi));
}

qx führt Programm aus und fängt ausgabe ab
mit $protokoll->insert('end', "ewrt"); wird das ganze gleich in dein Protokollfenster gesendet

perl.exe unter windows ...
sonst unix perl path

Btw... benutzt mal oben noch:

Code: (dl )

1
2

use strict;
use warnings;

dann siehste mehr (mögliche) Fehler, bzw verhinderst sie gleich ;)