Perl readline 函数

  • 描述

    readline 此函数从EXPR引用的文件句柄中读取一行,并返回结果。如果要直接使用FILEHANDLE,则必须将其作为typeglob传递。简单来说,readline功能等效于<>。
  • 句法

    以下是此函数的简单语法-
    
    readline EXPR
    
  • 返回值

    此函数在标量上下文中仅返回一行,而在列表上下文中,返回到文件末尾的行列表
  • 示例

    以下是显示其基本用法的示例代码-
     
    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 $