Perl readline()函数

perl readline()函数例子，readline()函数实例代码 - 从文件句柄读取所引用EXPR的一行，返回结果。

语法

readline EXPR

定义和用法

从文件句柄读取所引用EXPR的一行，返回结果。如果你想使用一个文件句柄，它必须作为一个类型团。

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

返回值

在标量上下文，则返回只有一行
在列表的背景下，行的列表，到达文件结束时返回

例子

试试下面的例子：

#!/usr/bin/perl -w
#by www.gitbook.net

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 $