perl中的這個編譯錯誤是什麼？我沒有看到一個語法問題

Question

#!/usr/bin/perl 
use strict; 
use warnings; 

open(TEST, "leet.txt") or die "Can't open leet.txt: $!\n"; 
while(my $line = <TEST>) { 
    if($line =~ tr/34/ea/) 
     print <<EOF; 
$line 
EOF 
} 

它產生這樣的：在./practice.pl線11條，近「） 打印」 執行由於編譯錯誤中止./practice.pl的 語法錯誤。

Answer 1

你必須包圍if命令在{ }塊，甚至當它僅具有一個命令。與其他語言不同，在Perl中，這不是可選的。

if($line =~ tr/34/ea/) { 
     print <<EOF; 
$line 
EOF 
    } 

Answer 2

我想你剛剛跳過粘貼兩個「}」的結尾。然後添加 「{」：

如果（$線=〜TR/34/EA /）{