Đọc dữ liệu chưa được lọc từ đường ống trong Perl

Question

Tôi đang cố gắng đọc dữ liệu không được lọc từ một đường ống trong Perl. Ví dụ: trong chương trình bên dưới:

open FILE,"-|","iostat -dx 10 5"; 
$old=select FILE; 
$|=1; 
select $old; 
$|=1; 

foreach $i (<FILE>) { 
    print "GOT: $i\n"; 
} 

iostat phun ra dữ liệu sau mỗi 10 giây (năm lần). Bạn mong đợi chương trình này sẽ làm như vậy. Tuy nhiên, thay vào đó nó xuất hiện để treo trong 50 giây (tức là 10x5), sau đó nó phun ra tất cả dữ liệu.

Làm thế nào tôi có thể nhận được trả lại bất kỳ dữ liệu nào có sẵn (theo cách thức không bị cản trở), mà không phải đợi tất cả các cách cho EOF?

P.S. Tôi đã thấy nhiều tài liệu tham khảo này dưới Windows - Tôi đang làm điều này dưới Linux.

Answer 1

#!/usr/bin/env perl 

use strict; 
use warnings; 



open(PIPE, "iostat -dx 10 1 |")  || die "couldn't start pipe: $!"; 

while (my $line = <PIPE>) { 
    print "Got line number $. from pipe: $line"; 
} 

close(PIPE)       || die "couldn't close pipe: $! $?"; 

Answer 2

Nếu bạn có thể đợi trong kịch bản Perl của mình thay vì lệnh linux, thao tác này sẽ hoạt động. Tôi không nghĩ rằng Linux sẽ cung cấp cho kiểm soát trở lại kịch bản Perl trước khi thực hiện lệnh được hoàn thành.

#!/usr/bin/perl -w 
my $j=0; 
while($j!=5) 
{ 
    open FILE,"-|","iostat -dx 10 1"; 
    $old=select FILE; 
    $|=1; 
    select $old; 
    $|=1; 

    foreach $i (<FILE>) 
    { 
     print "GOT: $i"; 
    } 
    $j++; 
    sleep(5); 
} 

Answer 3

Tôi có mã dưới đây làm việc cho tôi

#!/usr/bin/perl 
use strict; 
use warnings; 
open FILE,"-|","iostat -dx 10 5"; 

while (my $old=<FILE>) 
{ 
    print "GOT: $old\n"; 
} 

Answer 4

Các giải pháp cho đến nay đã không làm việc cho tôi liên quan đến unbuffering (Windows ActiveState Perl 5.10).

Theo http://perldoc.perl.org/PerlIO.html, "Để nhận luồng không được lọc, hãy chỉ định một lớp không bị chặn (ví dụ: unix) trong cuộc gọi mở:".

Vì vậy

open(PIPE, '-|:unix', 'iostat -dx 10 1') or die "couldn't start pipe: $!"; 

while (my $line = <PIPE>) { 
    print "Got $line"; 
} 

close(PIPE); 

mà làm việc trong trường hợp của tôi.