división en el carácter de la tubería en Perl

Question

Tengo un pequeño problema. Quiero dividir una línea en cada carácter de tubería encontrado usando el operador de división. Como en este ejemplo.

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

Yo esperaría un ouput de 36 como awk división con el delimitador | retorno 36, pero en lugar de eso obtener 12, como si la división se detuvo en el carácter 1 en la línea.

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

Cualquier idea. He intentado muchas formas de citar el |, pero sin éxito. Muchas gracias de antemano.

Answer 1

Según split:

Por defecto, los campos principales vacíos se conservan y se arrastran los vacíos se eliminan.

es necesario especificar un límite negativo de la división para obtener los arrastran:

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