正则匹配单个大写字母

正则匹配单个大写字母

需求不明确，不知道你具体想解决什么问题额？
是否需要将原始字符串每个字符以逗号分隔即可？
如果只是加个逗号分隔：
用perl:
$a="ABCDEFG";
$a=~s/([A-Z])/$1,/g;
$a=~s/,$//;

print "$a
";其他语言一样的，把大写字母分组后再替换，加个逗号；在把最后一个逗号替换为空
或者更简单些：
(至于那些地方加逗号，把A-Z扩展下就可以了) s相当于其他语言的查找，替换
$a="ABCDEFG";

$a=~s/(？<=[A-Z])(?=[A-Z])/,/g;

print "$a
";2.原始字符仅含大写字母吗？有重复的字母吗？