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

发布时间：2020-12-15 21:48:32 所属栏目：大数据来源：网络整理

导读：我想有效地做到这一点： 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.如果没有输入,程序应该

我想有效地做到这一点：

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？也许一些开放(“> =& 2”)体操与exec相结合？

解决方法

Perl Cookbook中提到的F??IONREAD 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平台上.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!