redis01:/root# cat x2.pl
my $str="a19823a456123";
if ($str =~/a(.*)23/){print "1----".$1."\n";};
if ($str =~/a(.*?)23/){print "2----".$1."\n";};
redis01:/root# perl x2.pl
1----19823a4561
2----198
perl 贪婪匹配小例子
最新推荐文章于 2024-06-29 15:19:37 发布
本文通过实例代码解析Perl中的贪婪匹配行为,展示如何使用通配符`.*`和非贪婪匹配`.*?`来捕获字符串中特定模式的差异。
摘要由CSDN通过智能技术生成