Perl read 函数

• 

  描述

  read 此函数从与FILEHANDLE相关的文件中读取或尝试将LENGTH个字节读取到BUFFER中。如果指定了偏移量，则将从指定的偏移量开始将读取的字节放入缓冲区。
• 

  句法

  以下是此函数的简单语法-

  
  read FILEHANDLE, SCALAR, LENGTH, OFFSET
  
  read FILEHANDLE, SCALAR, LENGTH
  

• 

  返回值

  此函数读取的字节数或未定义的值。
• 

  示例

  以下是显示其基本用法的示例代码-

   
  my($buffer) = "";
  open(FILE, "/etc/services") or
       die("Error reading file, stopped");
  while(read(FILE, $buffer, 100) ) {
     print("$buffer\n");
  }
  close(FILE);
  

  执行结果：

  
  kerberos_master 751/udp  # Kerberos authentication
  kerberos_master 751/tcp  # Kerberos authentication
  passwd_server   752/udp  # Kerberos passwd server