Perl open 函数

• 

  描述

  open 此函数使用指定的文件句柄打开文件。文件句柄可以是一个表达式，结果值用作句柄。如果未指定文件名，则该变量的名称与所使用的文件句柄相同（这应该是标量变量，其字符串值引用该文件名）。特殊文件名“-”表示STDIN，“>-”表示STDOUT。
• 

  句法

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

  
  open FILEHANDLE, EXPR, LIST
  
  open FILEHANDLE, EXPR
  
  open FILEHANDLE
  

• 

  返回值

  如果失败，此函数返回o；如果成功，则返回1。
• 

  示例

  以下是在只读模式下打开file.txt的语法。此处小于<符号表示必须以只读模式打开文件。

   
  open(DATA, "<file.txt");
  

  DATA是将用于读取文件的文件句柄。这是打开文件并在屏幕上打印其内容的示例。

   
  open(DATA, "<file.txt");
  
  while(<DATA>) {
     print "$_";
  }
  

  以下是在写入模式下打开file.txt的语法。此处小于>符号表示必须以写入模式打开文件-

   
  open(DATA, ">file.txt");
  

  本示例实际上在打开文件进行写入之前将其截断（清空），这可能不是理想的效果。如果要打开文件进行读写，可以在>或<字符前加一个加号。

  例如，打开文件进行更新而不截断-

   
  open(DATA, "+<file.txt");
  

  首先截断文件-

   
  open DATA, "+>file.txt" or die "Couldn't open file file.txt, $!";
  

  您可以在追加模式下打开文件。在这种模式下，写入点将设置在文件末尾。

   
  open(DATA,">>file.txt") || die "Couldn't open file file.txt, $!";
  

  >> 将打开要附加的文件，将文件指针放在末尾，以便您可以立即开始附加信息。但是，除非您在其前面加上加号，否则您将无法读取它-

   
  open(DATA,"+>>file.txt") || die "Couldn't open file file.txt, $!";
  

  下表列出了不同模式的可能值。

   
  模式      定义
  < or r    只读访问
  > or w    创建，写入和截断
  >> or a         编写，附加和创建
  +< or r+       读写
  +> or w+       读取，写入，创建和截断
  +>> or a+    读取，写入，附加和创建