dzielenie na znak rurki w perl

Question

Mam mały problem. Chcę podzielić linię na każdy znak potoku znaleziony przy użyciu operatora podziału. Jak w tym przykładzie.

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

spodziewałbym się ouput 36 jako awk rozszczepienia z ogranicznikiem | powrotu 36, ale zamiast ja dostać 12, jakby zatrzymał się na rozłam 1 znaku w linii.

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

Każdy pomysł. Próbowałem wielu sposobów cytowania |, ale bez powodzenia. Wielkie dzięki z góry.

Answer 1

Według split:

Domyślnie pusty prowadzące pola są zachowane, a te puste końcowe są usuwane.

Musisz podać ujemną granicę do rozłamu, aby uzyskać te spływu:

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