如何打印在here-doc中嵌入的代碼爲詞法文件句柄

Question

我試圖創建一個腳本，它將從模板中生成perl代碼，並且我無法理解所引發的錯誤以及爲什麼我的解決方法修復了它。

這個例子是人爲的，但它說明了這個問題：

use strict; 
use warnings; 

my $name = shift; # from @ARGV 
my $file = sprintf "%s.pm", $name; 

open my $fh, ">", $file 
    or die "error: open(>, '$file'): $!"; 

print $fh << "MODULE"; 
package $name; 

# 
# blah blah 
# 

use strict; 
use warnings; 

require Exporter; 

our \@ISA  = qw| Exporter |; 
our \@EXPORT = qw| |; # automatic exports 
our \@EXPORT_OK = qw| |; # on-demand exports 

# CODE 

1; 
MODULE 

close $fh; 

當運行此腳本時，我收到以下錯誤：

$ perl script.pl Foo 
Invalid version format (non-numeric data) at script.pl line 11, near "package " 
syntax error at script.pl line 11, near "package $name" 
BEGIN not safe after errors--compilation aborted at script.pl line 17. 

本來這個腳本只是打印到stdout，而不是寫入文件 - 沒有錯誤拋出。在添加文件處理和接收這個錯誤之後，我然後試圖使用一個裸文件句柄 - 再次沒有錯誤拋出。

所以，如果我只是將「$ fh」替換爲「FH」，那麼腳本將按預期工作。關於詞法文件句柄導致它窒息的是什麼？

Answer 1

Perl是一種模棱兩可的語言。這意味着如何解析它並不總是很清楚。在某些情況下，perl必須猜測如何解析某些內容。有一個在

print $fh << "MODULE"; 

具體語法歧義時，<<可以是向左移位運算符或這裏-DOC的開始。

---

有兩條路徑可以解決該問題。

• 可以消除不確定性：

  print $fh +<< "MODULE"; 
  

  print $fh (<< "MODULE"); 
  

  print { $fh } << "MODULE"; 
  

  $fh->print(<< "MODULE"); 
  

• 你就可以欺騙perl到正確猜測：

  print $fh <<"MODULE"; 
  

---

注意print $fh +<< "MODULE";引入備用歧義。 +是二元還是一元+運算符？謝天謝地，它根據需要被解釋爲一元 - +。

---

順便說一句，<<"MODULE"可縮短至<<MODULE。

Answer 2

應該沒有空間標識後<< here文檔，所以

print $fh << "MODULE"; 

應該

print $fh <<"MODULE"; 

或更加整齊

print $fh <<MODULE; 

或許

print $fh (<< "MODULE"); 

因爲它是<<被視爲左移運算符，Perl繼續嘗試編譯package語句。找不到有效的軟件包名稱，它試圖使用$name作爲版本號，並且因爲它不是一個而投訴