#用文件句柄打开文件open (IN, '>',$file1) or die $!;open (OUT,‘<’，$file2) or die $!;while(){#处理输入文件里面的信息}print OUT "要输出的信息\n";#用完后关闭文件句柄close IN;close OUT;
楼上open函数用三个参数，很严谨。
