当前位置: 首页 > 文档资料 > Perl 入门教程 >

read

优质
小牛编辑
132浏览
2023-12-01

描述 (Description)

此函数从与FILEHANDLE关联的文件读取或尝试读取LENGTH字节数到BUFFER。 如果指定了偏移量,则读取的字节将从指定的偏移量开始放入缓冲区。

语法 (Syntax)

以下是此函数的简单语法 -

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

返回值 (Return Value)

此函数读取的字节数或未定义的值。

例子 (Example)

以下是显示其基本用法的示例代码 -

#!/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