#!/usr/bin/perl -w
open FP,"test.txt";#打开文件,这个等同于:open FP,"<test.txt",用于输入
open FP2,">>rst.txt";#打开一个问题,这个文件只用于输出
while($line=<FP>)#从文件读取数据
{
print FP2 $line;#这个是向文件rst.txt写入数据
}
open FP3,"rst.txt";#将rst.txt作为输入文件
#another method of writing data into file
open FP4,">rst1.txt";
select FP4;#另一中向文件写入数据的方法
while($line=<FP3>)
{
print $line;
}
select STDOUT;#注意,一定要还原
close FP4;
close FP3;
close FP2;
close FP;
system("cat rst1.txt");#测试rst1.txt中的内容
----------------------------------------------------------------------------