Thread Perl/Tk - wie rufe ich ein PERL Programm?: Aufruf PERL-prog. aus Perl/TK (3 answers)
Opened by Gerry at 2004-08-18 14:38

Gerry
 2004-08-18 14:38
#42462 #42462
User since
2004-08-18
26 Artikel
BenutzerIn
[default_avatar]
Hallo zusammen,

als Anfänger im Bereich Perl bzw. Perl/Tk renne ich natürlich laufend in "Loops", und so ist es auch mit diesem Problem (also bitte Nachsicht üben).

Unten steht ein kleines Perl/Tk-Progrämmchen, das lediglich einen Zweck hat, nämlich ein ZWEITES in PERL kodiertes Programm zu starten (z.B. TEST.PL). Kann mir jemand sagen, wie ich beim Click auf den Button "Ausführen" ein x-beliebiges PERL-Programm (z.B. C:\TEST\TEST.PL) ausführen kann? Vielleicht kann jemand unter "sub Programm_Ausfuehren" den Code reinschreiben. Auch für einen Hinweis darauf, wo ich die Doku für diese Funktion steht, wäre ich dankbar.

Schon im Voraus besten Dank.

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
#!/usr/local/bin/perl -w
use Tk 8.0;
use strict;

my $mw = MainWindow->new;            
$mw->geometry('350x175');            

my $menubar = $mw->Menu;            
$mw->configure(-menu => $menubar);    

my $file = $menubar->cascade(-label => '~Datei');     

$file->command(-label => 'Ausführen', -command => \&leeres_info_fenster);  
$file->command(-label => 'E~xit',     -command => \&ExitApplication);  

MainLoop;
# *****************************************************************************
# ** Sub LEERES INFO FENSTER **************************************************
# *****************************************************************************
sub leeres_info_fenster {
    my $popup = $mw->Dialog(
        -popover        => $mw,
        -title          => 'Leeres INFO Fenster',
        -bitmap         => 'Tk',
        -default_button => 'OK',
        -buttons        => ['OK'],
        -text           => "Diese Funktion ist noch\n".
                           "nicht aktiviert. \n",
        );
    $popup->resizable('no', 'no');
    $popup->Show();
}


# *****************************************************************************
# ** Sub Programm_Ausfuehren **************************************************
# *****************************************************************************
sub Programm_Ausfuehren {
    # Hier sollte ein Unterprogram (z.B. C:\TEST\TEST.PL), ausgeführt werden
        # sobald ich vorher den Button "Ausführen" gedrückt habe. Wie muss diese 
        # Routine hier kodiert werden?
}

# *****************************************************************************
# ** Sub ExitApplication ******************************************************
# *****************************************************************************
sub ExitApplication {
    my $dialog = $mw->Dialog(-text           => 'Anwendung wirklich beenden?',    
                             -bitmap         => 'question',
                             -title          => 'Anwendung verlassen?',
                             -default_button => 'Yes',
                             -buttons        => [qw/Yes No/],
                            );
    my $answer = $dialog->Show();
    if ($answer =~ /y/i){
        exit;
    }
    else {
    }
}

View full thread Perl/Tk - wie rufe ich ein PERL Programm?: Aufruf PERL-prog. aus Perl/TK