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 $