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