tách trên ký tự ống trong perl

Question

Tôi có một vấn đề nhỏ. Tôi muốn chia một dòng tại mỗi ký tự ống tìm thấy bằng cách sử dụng toán tử phân chia. Giống như trong ví dụ này.

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

Tôi mong chờ một ouput của 36 như awk tách với delimiter | trở 36, nhưng thay vào đó tôi nhận được 12, như thể chia dừng lại ở 1 nhân vật trong dòng.

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

Bất kỳ ý tưởng nào. Tôi đã thử nhiều cách để trích dẫn số |, nhưng không thành công. Rất cám ơn trước.

Answer 1

Theo split:

Theo mặc định, các lĩnh vực hàng đầu có sản phẩm nào được bảo toàn, và những trailing trống được xóa.

Bạn cần phải xác định một giới hạn tiêu cực đến sự chia rẽ để có được những cái đuôi:

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