Perl 和正则表达式； 1 美元是空的

Question

脚本：

$aString = "This is Just a temp string just for fun";

print '^^^^^^^^' . "\n";

if( $aString =~ /^This\sis.*just/ )
{
    print $aString . " ->true<-\n" . "^^^^^^^^" ."$1";
}
else
{
    print $aString . " ->false<-\n" . "^^^^^^^^" ."$1"
}

输出：

^^^^^^^^

这只是一个临时字符串，只是为了好玩 ->true<-

^^^^^^^^

问题：

1. 为什么 $1 是空的？
2. 如何知道aString中有多少子表达式被匹配？

请澄清。

Answer 1

为什么$1是空的？

您的表达式中没有捕获组 (())。也许你的意思是：

$aString =~ /^This\sis(.*)just/

如何知道aString中有多少个子表达式被匹配？

一旦捕获了一些数据，您就可以按照自己的喜好进行测试。

Answer 2

如果您确实不想使用捕获组（至少在另一个答案中提到过），您还可以在正则表达式和 ${^MATCH} 上使用 /p 选项，而不是$1：

if( $aString =~ /^This\sis.*just/p )
{
    print $aString . " ->true<-\n" . "^^^^^^^^" ."${^MATCH}";
}

这相当于（？）将整个正则表达式包装在捕获组中：

if( $aString =~ /(^This\sis.*just)/ )
{
    print $aString . " ->true<-\n" . "^^^^^^^^" ."$1";
}