此函数从与FILEHANDLE相关的文件中读取或尝试将LENGTH个字节读取到BUFFER中。如果指定了偏移量,则将从指定的偏移量开始将读取的字节放入缓冲区。
以下是此函数的简单语法-
read FILEHANDLE, SCALAR, LENGTH, OFFSET read FILEHANDLE, SCALAR, LENGTH
此函数读取的字节数或未定义的值。
以下是显示其基本用法的示例代码-
链接:https://www.learnfk.comhttps://www.learnfk.com/perl/perl-read.html
来源:LearnFk无涯教程网
#!/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
祝学习愉快!(内容编辑有误?请选中要编辑内容 -> 右键 -> 修改 -> 提交!)