Perl readline 函式

說明

此函式從 EXPR 引用檔案控制代碼中讀取一行，並返回結果。如果要直接使用 FILEHANDLE，則必須按型別萬用字元傳遞。

簡單的 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 $