Perl 的 read 函式

描述

此函式可讀取或嘗試從 FILEHANDLE 相關聯的檔案讀取 LENGTH 位元組數到緩衝區 BUFFER 中。如果指定了偏移量，讀取的位元組將從指定的偏移量開始放入緩衝區中。

語法

以下是此函式的簡單語法：-

read FILEHANDLE, SCALAR, LENGTH, OFFSET

read FILEHANDLE, SCALAR, LENGTH

返回值

此函式返回讀取的位元組數或未定義的值。

示例

以下是顯示其基本用法的示例程式碼：-

#!/usr/bin/perl -w

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 authentication
passwd_server   752/udp  # Kerberos passwd server