perl read()函数例子,read()函数实例代码 - 读取,或试图读取,长度LENGTH 与文件句柄FILEHANDLE 相关联的文件到缓冲区BUFFER中的字节数。
语法
read FILEHANDLE, SCALAR, LENGTH, OFFSET
read FILEHANDLE, SCALAR, LENGTH
定义和用法
读取,或试图读取,长度LENGTH 与文件句柄FILEHANDLE 相关联的文件到缓冲区BUFFER中的字节数。如果指定了一个偏移量,所读出的字节被放置到缓冲区中,在指定的偏移量开始。
返回值
读取的字节数或未定义的值。
例子
试试下面的例子:
#!/usr/bin/perl -w
#by www.yiibai.com
my($buffer) = “”;
open(FILE, “/etc/services”) or
die(“Error reading file, stopped”);
while(read(FILE, KaTeX parse error: Expected '}', got 'EOF' at end of input: … ) { 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