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);

復(fù)制代碼

直接在項(xiàng)目的目錄下生成a.txt文件，并在里面有“her um well a hmmm”內(nèi)容
如果“ print $fh = "her um well a hmmm\n"; ” 則直接輸出到STDIO上。

shuxi_w

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