使用來自 bash 的 stdin 的多行 perl 的 heredoc 語法

Question

如何將文件傳遞給 perl 腳本進行處理，並對多行 perl 腳本使用 heredoc 語法？ 我試過這些，但沒有運氣：

cat ng.input | perl -nae <<EOF
if (@F==2) {print $F[0] . "\t". $F[1] . "\n"} else { print "\t" . $F[0] . "\n" }
EOF

cat ng.input | perl -nae - <<EOF
if (@F==2) {print $F[0] . "\t". $F[1] . "\n"} else { print "\t" . $F[0] . "\n" }
EOF

Answer 1

確實不需要這里的文檔。 您可以簡單地使用多行參數：

perl -nae'
    if (@F==2) {
       print $F[0] . "\t". $F[1] . "\n"
    } else {
       print "\t" . $F[0] . "\n"
    }
' ng.input

清潔，比Barmar的便攜式，並且僅使用一個過程而不是Barmar的三個過程。

---

請注意，您的代碼可能會縮小為

perl -lane'unshift @F, "" if @F!=2; print "$F[0]\t$F[1]";' ng.input

甚至

perl -pale'unshift @F, "" if @F!=2; $_="$F[0]\t$F[1]";' ng.input

Answer 2

使用流程替代：

cat ng.input | perl -na <(cat <<'EOF'
if (@F==2) {print $F[0] . "\t". $F[1] . "\n"} else { print "\t" . $F[0] . "\n" }
EOF
)

還要在EOF標記EOF加上單引號，以使perl腳本中的$F不會被擴展為shell變量。

Answer 3

也可以將heredoc 作為“-”第一個參數傳遞給perl：

perl -lna - ng.input <<'EOF'
if (@F==2) {print $F[0] . "\t". $F[1] . "\n"} else { print "\t" . $F[0] . "\n" }
EOF