Ausgabe eines Programms *live* abfangen - #104888 (Allgemeines zu Perl)

xiconfjs

2008-01-18 13:44

User since
2006-01-21
79 Artikel
BenutzerIn

Hi,

ich verzweifle langsam. Ich versuche die Ausgabe eines Programms live abzufangen, doch irgendwie bekomme ich es nicht richtig hin. Wenn ich mit dem unten ausgeführten Skript versuche, die Daten abzufangen, bekomme ich diese erst, wenn das Programm beendet ist.
Ich hoffe ihr könnt mir auf die Sprünge helfen.

MfG XiCoN-FJS-

Hier das "Abfrage-Skript":

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Diagnostics;
use open ':utf8';
use open ':std';
use IPC::Open3;
$| = 1;


my $pid = open3( undef, my $read, undef, './test' );


while ( my $line = <$read> ) 
{
        print $line;
}

Und hier das Programm, welches abgefragt wird:
(gcc -o test test.c)
[cpp]#include <stdio.h>
#include <stdlib.h>

int main()
{
printf("test1\n");
sleep(5);
printf("test2\n");
sleep(10);
printf("test3\n");
return 0;
}[/cpp]