小编sau*_*dic的帖子

拆分perl中的管道字符

我有一点问题.我想在使用拆分运算符找到的每个管道字符处拆分一条线.就像在这个例子中.

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

我希望36的输出awk与分隔符|返回36 分开,但是我得到12,好像分裂停1在了行中的字符处.

echo "000001d17757274585d28f3e405e75ed|||||||||||1|||||||||||||||||||||||||||||||||||||||" | \ 
awk -F"|" '{print NF}'
Run Code Online (Sandbox Code Playgroud)

任何的想法.我尝试过多种方式引用|,但没有成功.非常感谢提前.

perl awk split

8
推荐指数
1
解决办法
4085
查看次数

标签 统计

awk ×1

perl ×1

split ×1