"ファイルへの書き込み"はif文の中では機能しません

Question

私は単純な "ファイルへの書き込み"をPerlで持っています。しかし、if文の中にファイルは書き込まれません。 if文の外側に書き出します。条件が常に満たされ、通常の印刷が行われる場合。どんな手掛かり？

open (FH, '>>', $files) or die $!; 

print FH "outside if, write to file"; 

if (condition){ 
    print FH "inside if, write to file"; 
    print "inside if, normal print"; 

}; 

出力はconditionがprintを無効にするパッケージに機能することをtiesファイルハンドルFHで、

inside if, normal print 

ファイルの内容がObviousy

outside if, write to file 

Answer 1

です。

$files = $ARGV[0]; 
sub condition { tie *FH, 'print_disabler'; 1 } 
sub print_disabler::TIEHANDLE { bless {},shift } 
sub print_disabler::PRINT { return } 

open (FH, '>>', $files) or die $!; 

print FH "outside if, write to file"; 

if (condition){ 
    print FH "inside if, write to file"; 
    print "inside if, normal print"; 

}; 

$ perl condition.pl foo 
inside if, normal print 
$ cat foo 
outside if, write to file