Perl：将打开的文件句柄传递给读取STDIN的程序

我从STDIN读了几行.如何将剩余的STDIN传递给从标准输入读取的命令(例如md5sum或wC)？ @H_696_2@我可以做一个：

read_a_few_lines_from_diamond_operator();
open (C,"|cmd");
while(<>) { print C }
close c;
cleanup_after_C();

@H_696_2@但出于效率原因,我不想触摸输入,而是传递STDIN的文件句柄.有点像：

seq 10 | (read A; wC)

@H_696_2@在将其余部分传递给wc之前,read读取尽可能多的内容.我不能使用这个解决方案,因为我需要从我的perl程序内部启动命令,我需要在cmd完成后完成工作.

@H_696_2@我从’foo’文件中读了几行.如何将剩余部分传递给从标准输入读取的命令(例如md5sum或wC)？

@H_696_2@我可以做一个：

open (F,"<foo");
read_a_few_lines_from_F();
open (C,"|cmd");
while(<F>) { print C }
close c;
cleanup_after_C();

@H_696_2@但出于效率原因,而是传递文件’foo’的其余部分.

@H_696_2@我有一种感觉,可以使用像SELECT,open(FOO,“>& STDOUT),exec 6<& 0,fork,pipe这样的技巧来完成.

perl -E'say $_ x 500 for "a".."z"' \
   | perl -e'<>; <>; exec("cat");' \
   | less

open(STDIN,"<","foo") or die $!;
read_a_few_lines(*STDIN);
my $pos = tell(STDIN);
open(STDIN,"foo") or die $!;
sysseek(STDIN,$pos,SEEK_SET);
system(@cmd);
...

open(STDIN,"foo") or die $!;
read_a_few_lines(*STDIN);
sysseek(STDIN,tell(STDIN),SEEK_SET);
system(@cmd);
...