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
