来看个联发科秋招的一个大题（3）——必考的Perl语言文件读写

#!/usr/bin/perl
open(file1, "< in.txt") or die "con not open file1";
open(file2, "> out.txt") or die "con not open file2";

while( <file1> ){
  chomp;        
  print file2 $_;    
}

close( file1 );
close( file2 );