Perl如何知道從IO :: Select :: - > can_read中的句柄中讀取多少個字節？

Question

我正在使用IO::Select的can_read方法來選擇準備好在簡單的perl腳本中讀取的文件句柄。

但是，文件句柄上的<...>運算符不需要傳遞給它的長度。

是IO::Select到達文件句柄內部以設置「合適的長度」......或究竟發生了什麼？

#!/usr/bin/env perl 
use IO::Select; 
use strict; 
use warnings; 

my @handles = IO::Select->new(\*STDIN)->can_read(3); 

@handles == 1 or die; 

my $handle = $handles[0]; 

print ("I read " . <$handle> . "\n"); 

例如，以下腳本立即打印"a\n"，然後在3秒鐘後退出。

% sh -c 'echo a; sleep 5; echo b' | perl reader.pl 
I read a 

Exit 141 

然後由於一些奇怪的原因而退出異常......不知道退出狀態是在哪裏設置的。

編輯：明顯的異常退出似乎是tcsh中的錯誤。

Answer 1

IO :: Select既不知道長度，也不知道<...>運算符或readline函數知道它。相反，它只會嘗試閱讀到底有什麼內容。如果沒有找到行尾字符（即$/），它將在非阻塞文件句柄的情況下簡單地返回所有可用數據，或者在阻塞文件句柄的情況下等待行結束或數據結束。

在您的具體情況echo a; sleep 5; echo b導致線a\n和5秒後在一條線上b\n。由於您的代碼在標量環境中使用<..>，因此它只會讀取一行。這意味着它會在找到第一行結束後停止並返回此行，導致a\n。