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

phi*_*ogg 4 perl

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

mhy*_*itz 5

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

perl -ne '{print tr/\cA//, $/}' file
Run Code Online (Sandbox Code Playgroud)

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

perl -ne '{$c += tr/\cA//}END{print $c, $/}' file
Run Code Online (Sandbox Code Playgroud)

(编辑:固定拼写错误)