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的数据,所以我真的不想触摸那些数据(甚至没有a sysread).我试过做:

    pipe(STDIN,OUT);

但这不起作用.有没有其他方法可以告诉OUT,在获得第一个字节后,它应该只读取STDIN？也许一些开放式("> =&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平台上.