这是网上广泛流传的perl文本读写方法, 但是有些没有讲清楚, 所以我单独加了注释.
1、文件名前面没有">"表示读文件
open(FILE,"C:\test.txt");while(<FILE>)
{
chomp;
print "$_\n";
}
close(FILE);
2、文件名前面有一个">"表示写文件,并覆盖原有内容
open(FILE,">C:\test.txt"); ##这个地方要注意的是, 执行这一句,实际上已经重建该文本, 之前的内容在这一步就已经清空.
##后面想要再使用FILE对变量赋值就会出现问未初始化问题.
print FILE "大家好\n";close(FILE);
open(FILE,">>C:\test.txt");
print FILE "大家好\n";
close(FILE);;