Opened by pktm at 2007-11-07 13:55
User since
2003-08-07
2921 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-07
2921 Artikel
BenutzerIn
Am besten ist wohl anhand eines Beispielprogrammes erläutert:
Immer, wenn da der Button gedrückt wird erscheint in der Konsole, meinem STDOUT die Ausgabe. Die Konsole sehe ich aber nicht immer, ich will die Ausgabe aber trotzdem sehen. Also dachte ich mit, wäre es doch vielleicht möglich, in meine grafische Oberfläche noch ein Textfeld einzubauen, in welchem alle Ausgaben (des Programmes, das gerade läuft) angezeigt werden.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
my $mw = tkinit();
$mw->Button(
-text => 'Drück mich!',
-command => sub{
print "ausgabe\n";
warn "warnung\n";
},
)->pack();
$mw->MainLoop();
Immer, wenn da der Button gedrückt wird erscheint in der Konsole, meinem STDOUT die Ausgabe. Die Konsole sehe ich aber nicht immer, ich will die Ausgabe aber trotzdem sehen. Also dachte ich mit, wäre es doch vielleicht möglich, in meine grafische Oberfläche noch ein Textfeld einzubauen, in welchem alle Ausgaben (des Programmes, das gerade läuft) angezeigt werden.
http://www.intergastro-service.de (mein erstes CMS :) )