Perl readline 函数

描述

该函数从 EXPR 引用的文件句柄中读取一行，并返回结果。 如果你想直接使用 FILEHANDLE，它必须作为 typeglob 传递。

简单的 readline 函数就相当于 <>。

语法

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

readline EXPR

返回值

此函数在标量上下文中仅返回一行，在列表上下文中，返回到文件末尾的行列表

示例

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

#!/usr/bin/perl -w

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 $

❮ Perl 函数参考