Perl readline 函数
-
描述
readline 此函数从EXPR引用的文件句柄中读取一行,并返回结果。如果要直接使用FILEHANDLE,则必须将其作为typeglob传递。简单来说,readline功能等效于<>。 -
句法
以下是此函数的简单语法-readline EXPR
-
返回值
此函数在标量上下文中仅返回一行,而在列表上下文中,返回到文件末尾的行列表 -
示例
以下是显示其基本用法的示例代码-my($buffer) = ""; open(FILE, "/etc/services") or die("Error reading file, stopped"); $buffer = <FILE>; print("$buffer"); $buffer = readline( *FILE ); print("$buffer"); close(FILE);
执行结果:# /etc/services: # $Id: services,v 1.33 2003/03/14 16:41:47 notting Exp $