Perl读写文本文件，简单而又简洁 - 系统编程 - IXPUB技术社区

1、文件名前面没有">"表示读文件
open(FILE,"C:\test.txt";
while(<FILE>
{
chomp;
print "$_\n";
}
close(FILE);

2、文件名前面有一个">"表示写文件，并覆盖原有内容
open(FILE,">C:\test.txt";
print FILE "大家好\n";
close(FILE);

3、文件名前面有两个">"表示在这个文件后面追加内容
open(FILE,">>C:\test.txt";
print FILE "大家好\n";
close(FILE);