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

renee

2008-01-18 14:30

User since
2003-08-04
14371 Artikel
ModeratorIn

So funktioniert es bei mir:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
$| = 1;

open my $read, 'test.pl |';
while ( my $line = <$read> ){
   print $line;
}

und die test.pl:

Code (perl): (dl )

#!/usr/bin/perl

$|++;

for(0..7){
   print "$_\n";
   sleep 1;
}

Man beachte das $|++ in test.pl. Ohne das habe ich den gleichen Effekt gehabt wie Du.

Hier läuft WinXP mit ActivePerl 5.8.8. Vielleicht gibt's da auch von OS zu OS Unterschiede...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/