File Perl

  1. Home
  2. Perl
  3. File
  4. Sending the Output of a Filter to a File
#!/usr/bin/perl
# Program to redirect STDOUT from filter to a UNIX file
$| = 1;           
$tmpfile = "temp";
open(DB, "data.txt") || die qq/Can't open "data": $!\n/;
open(SAVED, ">&STDOUT") || die "$!\n";  
open(STDOUT, ">$tmpfile" ) || die "Can't open: $!\n";
open(SORT, "| sort +1") || die;
while(){
   print SORT;
}
close SORT;
open(STDOUT, ">&SAVED") || die "Can't open";