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 $