perl open函数

open(DATA, " 
   
open(DATA, ">file.txt");    # 写入方式
 
   
open(DATA, "+ 
   
open DATA, "+>file.txt" or die "Couldn't open file file.txt, $!";  #清空该文件
 
   
open(DATA,"+>>file.txt") || die "Couldn't open file file.txt, $!"; #打开文件追加
 
  

转载于:https://www.cnblogs.com/koujiaodahan/p/6512224.html