perl 文件句柄

#!/usr/bin/perl

use autodie;

open LOG, '>>', 'log_file';
print LOG "first log input\n";
close LOG;

open LOG, '>>', 'log_file';
print LOG "second log input\n";
close LOG;

$| = 1;  #使得当前的文件句柄输出立即显示在屏幕上
select STDOUT;
print "sadafd";

open LOG, '>>', 'log_file';
print LOG "dsadadsf";
close LOG;

你可能感兴趣的:(perl,文件句柄)