如何使用Perl忽略多行字符串中的最后一个换行符

Question

我需要将foo,bar变成

BAZ(foo) \
BAZ(bar)

\按原样存在。

我尝试了echo 'foo,bar' | tr , '\n' | perl -pe 's/(.*)\n/BAZ($1) \\\n/g'但产生了

BAZ(foo) \
BAZ(bar) \

所以，这是一个完全错误的方法，或者我需要一种方法来忽略Perl的多行字符串中的最后一个换行符。

Answer 1

您可以将join与map一起使用，如下所示：

$ echo 'foo,bar' | perl -F, -lape '$_ = join(" \\\n", map { "BAZ(" . $_ . ")" } @F)'
BAZ(foo) \
BAZ(bar)

• -a启用自动拆分模式，使用,分隔符拆分输入并将其分配给@F
• map获取数组的每个元素并将其包装
• join在每个元素之间添加反斜杠和换行符

Answer 2

echo 'foo,bar' | perl -ne'print join " \\\n", map "BAZ($_)", /\w+/g'

<强>输出

BAZ(foo) \
BAZ(bar)

Answer 3

使用awk即可：

s='foo,bar'
awk -F, '{for (i=1; i<=NF; i++) printf "BAZ(%s) %s\n", $i, (i<NF)? "\\" : ""}' <<< "$s"
BAZ(foo) \
BAZ(bar)

或使用sed：

sed -r 's/([^,]+)$/BAZ(\1)/; s/([^,]+),/BAZ(\1) \\\n/g' <<< "$s"
BAZ(foo) \
BAZ(bar)

Answer 4

使用eof检测您是否在最后一行：

echo 'foo,bar' | tr , '\n' | perl -pe 'my $break = (eof) ? "" : "\\"; s/(.*)\n/BAZ($1) $break\n/g'