perl学习整理2

对于模式匹配中，统计字符、数字及其他个数问题，如果直接用模式匹配会始终显示不正常，如$patter=<stdin>;

$count_letter=$patter =~ /[A-Za-z]/,不能得到正确个数，可以用替换解决这一问题:$count_letter=($pattern =~ s/([A-Za-z])/$1/isg);