Opened by Robby at 2003-09-11 10:04
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
Um noch mal auf das Thema zurueck zu kommen... ;)
@Robbie: Ich denke fuer deine Anwendung ist eine Kombination aus Pipe-open und Tk::fileevent das Passende.
Ich habe hier das Modul FileHandle benutzt, weil Perl bei mir gemeckert hat, wenn ich ein Standard-Filehandle in fileevent() benutzen wollte.
@Robbie: Ich denke fuer deine Anwendung ist eine Kombination aus Pipe-open und Tk::fileevent das Passende.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use FileHandle;
...
# Filehandle anlegen
my $fh = new FileHandle;
# Pipe-open
open ($fh, "das_pruefende_programm |") or die "ups... $!";
# Fileevent mit Callback verbinden
$MainWindow->fileevent ($fh, 'readable', \&funktion_die_was_macht);
sub funktion_die_was_macht {
print <$fh>; # Oder was anderes, z.B. den Text in ein Widget einfuegen
}
Ich habe hier das Modul FileHandle benutzt, weil Perl bei mir gemeckert hat, wenn ich ein Standard-Filehandle in fileevent() benutzen wollte.