Perl在這裏 - 文檔沮喪

Question

我似乎很難讓我的文檔正常工作。我有一大堆文本需要塞入一個變量並保持不插入。

這是我有：

my $move_func <<'FUNC'; 
function safemove 
{ 
    if [[ ! -f $1 ]] ; then echo "Source File Not Found: $1"; return 1; fi 
    if [[ ! -r $1 ]] ; then echo "Cannot Read Source File: $1"; return 2; fi 
    if [[ -f $2 ]] ; then echo "Destination File Already Exists: $1 -> $2"; return 3; fi 
    mv $1 $2 
} 
FUNC 

# Do stuff with $move_func 

這給了我

Scalar found where operator expected at ./heredoc.pl line 9, near "$1 $2" 
     (Missing operator before $2?) 
Semicolon seems to be missing at ./heredoc.pl line 10. 
syntax error at ./heredoc.pl line 6, near "if" 
syntax error at ./heredoc.pl line 10, near "$1 $2 
" 
Execution of ./heredoc.pl aborted due to compilation errors. 

---

但是，按預期以下工作：

print <<'FUNC'; 
function safemove 
{ 
    if [[ ! -f $1 ]] ; then echo "Source File Not Found: $1"; return 1; fi 
    if [[ ! -r $1 ]] ; then echo "Cannot Read Source File: $1"; return 2; fi 
    if [[ -f $2 ]] ; then echo "Destination File Already Exists: $1 -> $2"; return 3; fi 
    mv $1 $2 
} 
FUNC 

我在做什麼錯？

Answer 1

您需要使用賦值運算符，形成一個完整的語句來指派字符串：

my $move_func = <<'FUNC'; 
function safemove 
{ 
    if [[ ! -f $1 ]] ; then echo "Source File Not Found: $1"; return 1; fi 
    if [[ ! -r $1 ]] ; then echo "Cannot Read Source File: $1"; return 2; fi 
    if [[ -f $2 ]] ; then echo "Destination File Already Exists: $1 -> $2"; return 3; fi 
    mv $1 $2 
} 
FUNC 

# Do stuff with $move_func 

Answer 2

你錯過了=標誌：

my $move_func = <<'FUNC';