无涯教程-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

参考链接

www.learnfk.com/perl/perl-r…