Perlでn番目の区切り文字インスタンスごとに改行を追加する方法

Perlでn番目の区切り文字インスタンスごとに改行を追加する方法

私はdata.txtファイルを開き、"|"のnインスタンスごとに改行区切り文字を追加して、各行に4つの変数がすべて含まれるようにするスクリプトを作成しています。基本的に線を広いものから長いものに分割し、外観を変更します。ご協力ありがとうございます。

入力する:

a1|b1|c1|d1|a2|b2|c2|d2|a3|b3|c3|d3|a4|b4|c4|d4

出力:

a1|b1|c1|d1|   
a2|b2|c2|d2|   
a3|b3|c3|d3|  
a4|b4|c4|d4

ベストアンサー1

次のことができます。

perl -pe 's/(.*?\|){4}\K/\n/g'

おすすめ記事