Redirects standard input and output and turns off buffering. : select « File « Perl

1. Perl
2. File
3. select

Redirects standard input and output and turns off buffering.

    
#!/usr/local/bin/perl 

open (STDOUT, ">file1") || die ("open STDOUT failed"); 
open (STDERR, ">&STDOUT") || die ("open STDERR failed"); 
$| = 1; 
select (STDERR); 
$| = 1; 
print STDOUT ("line 1\n"); 
print STDERR ("line 2\n"); 
close (STDOUT); 
close (STDERR); 

   
    
    
    
  

Related examples in the same category