Question

怎样用Perl正则表达式 匹配只有一个大写字母的行，

Answer 1

首先读入一行
然后用if($_=~s/([A-Z]/$1/g==1)) 判断
示例如下，自己试一下

bsd# perl -e '$a="ABC"; if ($a=~s/([A-Z])/$1/g==1) { print "only one capital character\n" } else {print "not only one capital character\n"}'
not only one capital character
bsd#
bsd#
bsd#
bsd# perl -e '$a="aaaSddd"; if ($a=~s/([A-Z])/$1/g==1) { print "only one capital character\n" } else {print "not only one capital character\n"}'
only one capital character

Answer 2

这个大写字符必须在行首吗？

在行首：^[A-Z][^A-Z]+$

不确定在行首：^([^A-Z]+)?[A-Z]([^A-Z]+)?$

^_^

Answer 3

这个大写字符必须在行首吗？

在行首:^[A-Z][^A-Z]+$

不确定在行首:^([^A-Z]+)？[A-Z]([^A-Z]+)。

Answer 4

/^\s*[A-Z]\s*$/