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 $