Perl read()函數

perl read()函數例子，read()函數實例代碼 - 讀取，或試圖讀取，長度LENGTH 與文件句柄FILEHANDLE 相關聯的文件到緩衝區BUFFER中的字節數。

語法

read FILEHANDLE, SCALAR, LENGTH, OFFSET read FILEHANDLE, SCALAR, LENGTH

定義和用法

讀取，或試圖讀取，長度LENGTH 與文件句柄FILEHANDLE 相關聯的文件到緩衝區BUFFER中的字節數。如果指定了一個偏移量，所讀出的字節被放置到緩衝區中，在指定的偏移量開始。

返回值

• 讀取的字節數或未定義的值。

例子

試試下麵的例子：

#!/usr/bin/perl -w
#by www.gitbook.net

my($buffer) = "";
open(FILE, "/etc/services") or
     die("Error reading file, stopped");
while(read(FILE, $buffer, 100) )
{
   print("$buffer\n");
}
close(FILE);

這將產生以下結果。這僅僅是結果的快照

kerberos_master 751/udp  # Kerberos authentication
kerberos_master 751/tcp  # Kerberos authenti
cation
passwd_server   752/udp  # Kerberos passwd server