Perl output to a file

[akhilciba]

Hai there i have a perl code as follows

 open(DATA1,'blastout');
while(<DATA1>)
 
 {
   my @data = split /\t/,$_;
   print "@data\n" if $data[3]>=$ln;
}
 

i want to save this printed data into a file

[RonB]

Ok, you already know about the open and print functions, so what's stopping you?

[akhilciba]

Am new to programme i tried different way but i couldn't make it

[akhilciba]

open(DATA1,'blastout');
while(<DATA1>)
 
 {
  open (OUTFILE, ">upcase");    
  my @data = split /\t/,$_;
  print OUTFILE $_ if $data[3]>=$ln;
   }
 

I tried this way but there is nothing outputted on upcase file

[RonB]

open (OUTFILE, ">upcase");

That needs to be before the while loop and you should add error checking.

open(DATA1,'blastout');
open (OUTFILE, '>', 'upcase') or die "failed to create 'upcase' <$!>";
 
while(<DATA1>) {  
  my @data = split /\t/, $_;
  print OUTFILE $_ if $data[3] >= $ln;
}