Perl:将一个字节加上 STDIN 传递给另一个命令

Question

我想有效地做到这一点:

my $buf;
my $len = read(STDIN,$buf,1);
if($len) {
    # Not empty                                                                                                          
    open(OUT,"|-", "wc") || die;
    print OUT $buf;
    # This is the line I want to do faster
    print OUT <STDIN>;
    exit;
}

任务是仅在有任何输入时启动wc。如果没有输入，程序应该退出。

wc 只是这里的一个示例。它将被替换为更复杂的命令。

输入可能有几 TB 的数据，所以我真的不想碰这些数据(即使使用sysread)。我尝试这样做:

    pipe(STDIN,OUT);

但这行不通。有没有其他方法可以告诉 OUT 在获得第一个字节后，它应该只从 STDIN 读取？也许一些 open(">=&2") 体操与 exec 相结合？

Answer 1

Perl Cookbook 中提到的 FIONREAD ioctl 可以告诉您文件描述符上有多少字节待处理而不消耗它们。用毁灭性的话来说:

use strict;
use warnings;

use IO::Select qw( );    
BEGIN { require 'sys/ioctl.ph'; }

sub fionread {
    my $sz = pack('L', 0);
    return unless ioctl($_[0], FIONREAD, $sz);
    return unpack('L', $sz);
}

# Wait until it's known whether the handle has data to read or has reached EOF.
IO::Select->new(\*STDIN)->can_read();

if (fionread(\*STDIN)) {
    system('wc');
    # Check for errors
}

这应该可以非常广泛地移植到 UNIX 和类 UNIX 平台。