特定の文字を除いて、行の文字数を数える方法は？

これはパーツファイルです

N W N N N N N N N N N
N C N N N N N N N N N
N A N N N N N N N N N
N N N N N N N N N N N
N G N N N N N N N N N
N C N N N C N N N N N
N C C N N N N N N N N

各行で、「N」以外のすべての文字の総数をカウントしたい

私の欲望の出力

1
1
1
0
1
2
2

GNU awkソリューション：

awk -v FPAT='[^N[:space:]]' '{ print NF }' file

• FPAT='[^N[:space:]]'-フィールド値を定義するパターン（Ncharと空白を除く任意の文字）

予想される出力：

1
1
1
0
1
2
2

awk '{ gsub("[ N]",""); print length() }'

スペース文字以外の各行にカウントが必要であると想定し、 N

$ perl -lne 'print tr/N //c' ip.txt 
1
1
1
0
1
2
2

• の戻り値は、tr置き換えられた文字数です
• c 指定された文字セットを補完する
• -lオプションの使用に注意してください。入力行から改行文字を取り除き、1つずれたエラーを回避し、printステートメントに改行文字を追加します。

より一般的なソリューション

perl -lane 'print scalar grep {$_ ne "N"} @F' ip.txt 

• -a@F配列で保存された空白で入力行を自動的に分割するオプション
• grep {$_ ne "N"} @F@F文字列と一致しないすべての要素の配列を返しますN
  • 正規表現の同等物は grep {!/^N$/} @F
• を使用するとscalar、配列の要素数が得られます

代替のawkソリューション：

awk '{ print gsub(/[^N[:space:]]/,"") }' file

• gsub(...)- gsub()関数は、行われた置換の数を返します。

出力：

1
1
1
0
1
2
2

別のawkアプローチ（空の行に対しては-1を返します）。

awk -F'[^N ]' '$0=NF-1""' infile

または、複雑な場合、空行では-1を返し、空白（タブ/スペース）行でのみ0を返します。

awk -F'[^N \t]+' '$0=NF-1""' infile

1. trおよびPOSIXシェルスクリプト：

   tr -d 'N ' < file | while read x ; do echo ${#x} ; done
   

2. bash、、kshおよびzsh：

   while read x ; do x="${x//[ N]}" ; echo ${#x} ; done < file
   

ショートの組み合わせtrとawk：

$ tr -d ' N' <file.in | awk '{ print length }'
1
1
1
0
1
2
2

これにより、入力ファイルからすべてのスペースとNが削除awkされ、各行の長さが出力されます。

もう1つの簡単な方法は、Pythonでそれを行うことです。これは、ほとんどのUNIX環境にプリインストールされています。次のコードを.pyファイルにドロップします。

with open('geno') as f:
    for line in f:
        count = 0
        for word in line.split():
            if word != 'N':
                count += 1
        print(count)

そして次に：

python file.py

端末から。上記の内容は次のとおりです。

• 「geno」という名前のファイルの各行
• カウンターを0に設定し、値が見つかるたびにインクリメントします！= 'N'
• 現在の行の終わりに達したら、カウンターを印刷して次の行に移動します