print << EOF in perl-要打印$

Question

這裏我想打印'$'標誌。怎麼做？

#!/perl/bin/perl 
    print <<EOF; 
    This sign $ is called dollar 
    It's a multiline 
    string 
    EOF 

這是給我的結果。

This sign is called dollar 
It's a multiline 
string 

我想打印$。

Answer 1

使用EOF相當於"EOF" - 這裏的文檔被插入，就好像在雙引號中一樣。反斜槓美元符號\$或明確使用單引號來抑制插值。

print << 'EOF'; 
... 
EOF 

Answer 2

運行你的代碼use warnings打開給我：

Name "main::is" used only once: possible typo at foo.pl line 8. 
Use of uninitialized value $is in concatenation (.) or string at foo.pl line 8. 
This sign called dollar 
It's a multiline 
string 

正如你所看到的，is從句子了，所以是美元符號。警告告訴我爲什麼：在字符串內找到一個變量$is。由於它是空的，它被替換爲空字符串。因爲你沒有打開警告，所以這是靜靜地完成的。

道德是：始終使用use warnings。在這種情況下，還有一個好處是use strict，因爲由於未聲明的變量$is而導致腳本無法編譯。

至於如何解決它，我相信choroba有解決方案his answer。