当前位置: 首页 > 文档资料 > Perl 入门教程 >

readline

优质
小牛编辑
133浏览
2023-12-01

描述 (Description)

此函数从EXPR引用的文件句柄中读取一行,返回结果。 如果要直接使用FILEHANDLE,则必须将其作为typeglob传递。

简单的readline函数等效于<>。

语法 (Syntax)

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

readline EXPR

返回值 (Return Value)

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

例子 (Example)

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

#!/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 $