Perlスクリプトは、連続する2行の最初の文字を比較し、最初の2文字が同じ場合は2行目を無視します。

Perlスクリプトは、連続する2行の最初の文字を比較し、最初の2文字が同じ場合は2行目を無視します。

誰もがテキストファイル内の2つの連続した行の最初の文字を比較し、最初の文字がすべて同じ場合、2行目を無視/削除し、最初の行だけを新しいファイルに印刷するのに役立ちますか?

#1001
#1002
mango
orange
grape
#1003

を削除したいと思います#1002

ベストアンサー1

uniqGNUと-wオプション1の使用:

  -w, --check-chars=N
          compare no more than N characters in lines

連続して繰り返される行を省略し、最初の文字のみを比較できます。

uniq -w1 infile >outfile

1. マルチバイト文字では正しく動作しません。以下のStéphaneのメモをご覧ください。

おすすめ記事