perl - 在 perl 中拆分管道字符

Question

我有一个小问题。我想在使用 split 运算符找到的每个管道字符处拆分一行。就像在这个例子中一样。

echo "000001d17757274585d28f3e405e75ed|||||||||||1||||||||||||||||||||||||" | \
perl -ane '$data = $_ ; chop $data ; @d = split(/\|/ , $data) ; print $#d+1,"\n" ;'

我希望输出为 36
如 awk用分隔符分割 |返回 36，但我得到 12，就好像拆分在 1 处停止了一样行中的字符。

echo "000001d17757274585d28f3e405e75ed|||||||||||1|||||||||||||||||||||||||||||||||||||||" | \ 
awk -F"|" '{print NF}'

任何的想法。我尝试了很多引用 | 的方法，但没有成功。
非常感谢提前。

Answer 1

根据 split :

By default, empty leading fields are preserved, and empty trailing ones are deleted.

您需要为拆分指定负限制以获取尾随:

split(/\|/, $data, -1)