File Perl

  1. Home
  2. Perl
  3. File
  4. Redirects the standard output and standard error files
#!/usr/local/bin/perl 
open (STDOUT, ">file1") || die ("open STDOUT failed"); 
open (STDERR, ">&STDOUT") || die ("open STDERR failed"); 
print STDOUT ("line 1\n"); 
print STDERR ("line 2\n"); 
close (STDOUT); 
close (STDERR);