Perl read()函数

perl read()函数例子，read()函数实例代码 - 读取，或试图读取，长度LENGTH 与文件句柄FILEHANDLE 相关联的文件到缓冲区BUFFER中的字节数。

语法

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

定义和用法

读取，或试图读取，长度LENGTH 与文件句柄FILEHANDLE 相关联的文件到缓冲区BUFFER中的字节数。如果指定了一个偏移量，所读出的字节被放置到缓冲区中，在指定的偏移量开始。

返回值

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

例子

试试下面的例子：

#!/usr/bin/perl -w
#by www.gitbook.net

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