Perl-скрипт для подсчета количества символов control-A на строку в файле

Question

Мне нужно посчитать количество контрольных символов A в каждой строке файла, и я полностью озадачен, потому что я не знаю, каким будет регулярное выражение для контрольного символа A.

Answer 1

подсчет количества вхождений ^ A на строку (как perl однострочный):

perl -ne '{print tr/\cA//, $/}' file

подсчет общего числа вхождений ^ A:

perl -ne '{$c += tr/\cA//}END{print $c, $/}' file

(редактирование: исправленоопечатка)

Answer 2

Это похоже на работу:

#!/usr/bin/perl -n
s/[^\001]//g;
$count += length;
END {print "$count\n"}

Или, для подсчета каждой строки:

#!/usr/bin/perl -n
s/[^\001]//g;
print length, "\n";

Answer 3

Вы пытаетесь посчитать вхождения байта 01. Он может быть представлен как tr ///, так и m // несколькими способами, включая \cA и \x01.

perl -nE'say "$.: ", tr/\cA//' file

perl -nE'say "$.: " . ( ()=/\cA/g )' file

Answer 4

Хм, не думал об использовании tr:

perl -ne '{print s/\cA//g, $/}'

s/to/from/g возвращает количество раз, которое строка заменяется. tr/x/y/ возвращает количество символов заменено . В этом случае tr/x/y/ будет работать, но если вы ищете строку, а не один символ, у вас возникнут проблемы.

Я изначально, хотя m/regex/g работал бы, но оказалось, что он возвращает только 1 или 0. Drats.

Answer 5

Попробуйте это

$_ = '^Axyz^Apqr';
$match= tr/^A/^A/;

даст

$match=2;

В Gvim вы можете вставить элемент управления A, нажав Ctrl + v, а затем Ctrl + a