Perl-readline

Perl readline関数

説明

この関数は、EXPRが参照するファイルハンドルから行を読み取り、結果を返します。 FILEHANDLEを直接使用する場合は、typeglobとして渡す必要があります。

単にreadline関数は<>と同等です。

構文

以下は、この関数の簡単な構文です-

readline EXPR

Copy

戻り値

この関数は、スカラーコンテキストで1行のみを返し、リストコンテキストでは、ファイルの終わりまでの行のリストが返されます

例

以下は、その基本的な使用法を示すコード例です-

#!/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);

Copy

上記のコードが実行されると、次の結果が生成されます-

#/etc/services:
# $Id: services,v 1.33 2003/03/14 16:41:47 notting Exp $

Copy