perl语言入门中有道习题的疑问。

redxuan123

原题：输出含有要求的行。要求的单词用大写字母开头，但并非全大写！
书后面给的答案是这样的：
while(<>){
     if(/[A-Z][a-z]+/){print;}}
按照要求输出必须首字母大写，单词剩余的字母随意但却不能全大写！

上面的程序 也会匹配 fRed 这样的单词啊，并不符合要求

求答案啊哈！

redxuan123

思考这道题时，有几点很疑惑！
1， if(/[A-Z]/) ,模式中[A-Z],匹配的是只要你写的一个单词有一个字符是大写就匹配，那么假如我要匹配一个这样的单词（即首字母大写，第二个字母小写，第三个字母大写，后面的字母无所谓）怎么写！
2，量词+的用法！书上定义时，/fred+barney/会匹配在fred和barney之间用空格隔开而且只用空格隔开的字符串。这句话什么意思！

mcshell

首先匹配的是fRed所以匹配到了打印了整个字符串
re:即首字母大写，第二个字母小写，第三个字母大写，后面的字母无所谓

1. \b[A-Z][a-z][A-Z](?i)[a-z]+\b

复制代码

qq27898

1.这样写匹配大写开头后面的字母可以不用大写：/^[A-Z][a-zA-Z]+$/试试看

你那么写的：/[A-Z][a-z]+/只是匹配有一个大写字母，后面跟着1到n个小写字母的串，所以fRead符合，fReAd也符合

量词+的用法！书上定义时，/fred+barney/会匹配在fred和barney之间用空格隔开而且只用空格隔开的字符串。这句话什么意思！

至于这个，能否把原话发来看看，你描述的不清楚。。。。

我也在学Perl不知道理解的对不对，请各位大神指教

inbus

perl -ne "s/\b(.)/uc $1/eg;print"

redxuan123

回复 4# qq27898
恩 你写的这个对了哈，符合要求了！我也是才学perl！
+的理解我懂了


   

redxuan123

回复 4# qq27898
我又看了下  你的这个/^[A-Z][a-zA-Z]+$/有个问题就是 全大写的单词 也匹配了


   

afukada

這個試試看

if(/^[A-Z]+[a-z]/)

qq27898

需要大写开头，后面是大小写的混合又不希望后面全是大写，可以这么做：

/^[A-Z]([a-z]{1,}[A-Z]{0,})+$/

试试这个对不对，我这里没法验证，你自己试试看