问perl完全接受1个非字母数字字符(\W)

EN

你在问题中给出的判断力并不能像你想的那样做。

M/^a-Za-Z0-9W{1}/

这将匹配任何字符，即而不是 a-z、A-Z、0-9、任何非单词字符(\W)、{或}。方括号中的^否定char组的内容。如果它在里面的话，这不是台词的开始！

如果您需要验证任何在末尾有问号的输入，那么您所需要的都是问题标记和行尾元字符。

/\?$/

?本身就是一个元字符，所以您需要用反斜杠(\)来转义它。

如果你想把整个句子和结尾的问号匹配起来，想想这个句子中可能有什么样的字符。这可能不仅仅是\w。

在http://regex101.com/上玩你的输入和正则表达式，这将使它更容易，因为它解释了正在发生的事情。

这可能是可行的：

if( $question =~ m!([\w\s]+)\?$! ) {
   print "question text: $1\n";
}

regexpr查找\w和\s (空格、制表符、.)在最后一个位置问号之前，你经常在课文中出现。

接受一个“问题”，比如：“你今天过得怎么样？”

不如：

$string =~ /^(?:[a-z0-9]+\s*)+\?$/i;