Perl简单的文件读写

use strict;
use warnings;
 
my $filename = 'C:UsersWilliamDesktopdata.txt';
open(DONG,$filename)
  or die "Could not open file '$filename' $!";
 

my @line=<DONG>;
close DONG;
 
#while (my $row = <DONG>) {
#  chomp $row;
#  print "$rown";
#}

my $out_filename = 'C:UsersWilliamDesktopdata_out.txt'

#判断输出文件是否存在
if (-e $out_filename) {
    die ("Output file outfile already exists.n");
}
open(OUTFILE,">$out_filename");
print OUTFILE ("@linen");