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

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

解决方法

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

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

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

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

(编辑：固定拼写错误)