Perl脚本,用于计算文件中每行的控制字符数

Question

我需要计算文件每行中控件A字符的数量,我完全难倒,因为我不知道控件A字符的正则表达式是什么.

Answer 1

计算每行^ A的出现次数(作为perl one-liner):

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

计算^ A的总数出现次数:

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

(编辑:固定拼写错误)