Perl读写文本文件，简单而又简洁

1、文件名前面没有”>”表示读文件

open(FILE,”~/test.txt”);
while()
{
chomp;
print “$_”;
}
close(FILE);

2、文件名前面有一个”>”表示写文件，并覆盖原有内容

open(FILE,”>~/test.txt”);
print FILE “Welcome to Perl”;
close(FILE);

3、文件名前面有两个”>”表示在这个文件后面追加内容

open(FILE,”>>~/test.txt”);
print FILE “Welcome to Perl again”;
close(FILE);