特定の文字が出るまでテキスト(バイナリかも)を表示する

\0が出てくるまで表示

cat b.txt | perl -ne '$a=index($_,"\0"); if($a<0){ print $_ }else{ print substr($_,0,$a); exit; }'