暫時stdout重定向到/ dev/null的 - 不是所有的工作時間

我使用暫時stdout重定向到/ dev/null的 - 不是所有的工作時間

Server version: Apache/1.3.34 (Debian) 
mod_perl - 1.29

通過指的STDIN, STDOUT, and STDERR Streams

#!/usr/bin/perl5 
package main; 

use strict 'vars'; 

{ 
    # Our mighty holy legacy code love to print out message in the middle of operation. Shihh.... 
    # Let's quietly redirect those message to /dev/null. 
    my $nullfh = Apache::gensym(); 
    open $nullfh, '>/dev/null' or warn "Can't open /dev/null: $!"; 
    local *STDOUT = $nullfh; 
    print "BYE BYE WORLD"; # Shouldn't show in webpage. 
    close $nullfh; 
} 

print "X BEGIN HELLO WORLD"; # Should show in webpage.

我意識到，這是不是所有的工作時間。例如，我刷新頁面10次。 x次將打印出「X BEGIN HELLO WORLD」。（10-x）時間，它只是打印出什麼。

我找不到任何理由爲什麼這樣做。我可以知道你們中的任何人遇到類似的問題嗎？

來源

2009-06-28 Cheok Yan Cheng

我需要明確地存儲和恢復。它適用於我的情況。但我不知道爲什麼。

# Take copies of the file descriptors 
open OLDOUT, '>&STDOUT'; 
my $returned_values = 0; 
{ 
    # Our mighty holy legacy code love to print out message in the middle of operation. Shihh.... 
    # Let's quietly redirect those message to /dev/null. 
    local *STDOUT; 
    open STDOUT, '>/dev/null' or warn "Can't open /dev/null: $!"; 
    print "BYE BYE WORLD"; # Shouldn't show in webpage. 
    close STDOUT; 
} 
# Restore stdout. 
open STDOUT, '>&OLDOUT' or die "Can't restore stdout: $!"; 
# Avoid leaks by closing the independent copies. 
close OLDOUT or die "Can't close OLDOUT: $!";

來源

2009-06-30 01:10:39