Это часть файла
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:]]'- шаблон, определяющий значение поля (любой символ, кроме Nсимвола и пробела)Ожидаемый результат:
1
1
1
0
1
2
2
awk '{ gsub("[ N]",""); print length() }'
awk '{print gsub(/[^ N]/,"")}'
предполагая, что количество необходимо для каждой строки, кроме пробела и N
$ perl -lne 'print tr/N //c' ip.txt
1
1
1
0
1
2
2
tr- сколько символов было заменено.c дополнить набор символов, данных-lпараметра, удаляет символ новой строки из строки ввода, чтобы избежать ошибки, а также добавляет символ новой строки для оператора печати
Более общее решение
perl -lane 'print scalar grep {$_ ne "N"} @F' ip.txt
-aвозможность автоматического разделения строки ввода на пробелы, сохраненные в @Fмассивеgrep {$_ ne "N"} @Fвозвращает массив всех элементов, в @Fкоторых не совпадает строкаN
grep {!/^N$/} @Fscalarдаст количество элементов массиваАльтернативное решение 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для пустых строк ... но тогда это было бы желательно , чтобы выделить строку, состоящую только из N / пространства против пустой строки ...
trи сценарий оболочки POSIX :
tr -d 'N ' < file | while read x ; do echo ${#x} ; done
bash, kshи zsh:
while read x ; do x="${x//[ N]}" ; echo ${#x} ; done < file
awk '{print length()}'чтобы избежать более медленного зацикливания оболочки ... но тогда можно было бы делать все с помощью самого awk ...
awkзацикливание это быстрее , чем оболочка зацикливание. Но оболочка всегда находится в памяти и, awkвозможно, не будет - когда awkона еще не загружена или не выгружена, накладные расходы на ее загрузку ( потерянное время ) могут быть больше, чем преимущество при запуске, awkособенно на небольших петля. В таких случаях ( т.е. в этом случае), awkможет быть медленнее .
awkв сценарии оболочки может заставить такую систему ползать на четвереньках. Как правило: та же задержка перетаскивания применяется к системам с ограниченным программным обеспечением или любой системе с большой нагрузкой
Краткая комбинация trи awk:
$ tr -d ' N' <file.in | awk '{ print length }'
1
1
1
0
1
2
2
Это удаляет все пробелы Ns из входного файла и awkпросто печатает длину каждой строки.
Другой простой способ - сделать это на 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
С вашего терминала. Что выше делает:
sedчтобы заменить вещи, которые вам неawksed 's/N//g ; s/\s//g' file | awk '{ print length($0); }'