2014-09-09 特定の文字が出るまでテキスト(バイナリかも)を表示する perl \0が出てくるまで表示 cat b.txt | perl -ne '$a=index($_,"\0"); if($a<0){ print $_ }else{ print substr($_,0,$a); exit; }'