Perl句柄引用的疑问

on-fire

1. #!/usr/bin/perl
   
2. open(FILE , "> a.txt");
   
3. 
   
4. splutter(\*FILE);
   
5. 
   
6. sub splutter {
   
7.         my $fh = shift;
   
8.         print $fh  "her um well a hmmm\n";
   
9. }
   
10. 
    
11. close (FILE);

复制代码

直接在项目的目录下生成a.txt文件，并在里面有“her um well a hmmm”内容
如果“ print $fh = "her um well a hmmm\n"; ” 则直接输出到STDIO上。

shuxi_w

好像不行，说printf() on closed filehandle