[perl学习笔记]文件操作之文件的读写

#!/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中的内容

----------------------------------------------------------------------------