perl读写资料

perl读写文件
#!/usr/bin/perl
my $SRC_FILE="/home/lgg/t.txt";
my $DEST_FILE="/home/lgg/dest.txt";
if (open (SRCFILE ,"<$SRC_FILE"))
{
   open (DESTFILE ,">$DEST_FILE");
   my @reads = <SRCFILE>;
   my $count=$#reads;
   my $curr_index= 0;
   while($curr_index <=$count)
   {
     my $line = $reads[$curr_index];
$line=~s/^\s+|\s+$//g;
if ( nil ne $line && "" ne $line)
{ 
print DESTFILE "$line\n";
     }
$curr_index++;
   }
   close DESTFILE;
   close SRCFILE;
}
else
{
   print "Source file $SRC_FILE not found!\n";
}