perl文件句柄

perl 哈希操作

#	文件句柄，标准文件句柄有STDIN  STDOUT  STDERR  DATA  ARGV  ARGVOUT
#	建立名字为TEXTFILE的文件句柄, < 表示读文件
open TEXTFILE,"<","a.txt";  
while(<TEXTFILE>){
print $_;
}
close TEXTFILE;


#open TEXTFILE1,">","b.txt";   #>表示写文件，如果文件不存在，则会创建文件，输入文字覆盖原有内容
open TEXTFILE1,">>","b.txt";   #>>表示写文件，如果文件不存在，则会创建文件，输入文字追加原有内容
print TEXTFILE1 "hello";
close TEXTFILE1;


#die "失败";    表示停止执行，并输出 失败；

#	if (! open FILE1,">>","c.txt") {die "打开文件失败：$!";};

#	把文件a.txt中的内容写入d.txt中
open TEXTFILE,"<","a.txt"; 
open TEXTFILE3,">>","d.txt";
while(<TEXTFILE>){print TEXTFILE3 $_;}
close TEXTFILE;
close TEXTFILE3;