我很喜欢像.*这样的正则表达式.
#!usr/bin/perl use strict; use warnings; my $text = "scott"; $text =~ s/.*/\//g; print $text;
输出://
所以,我不知道为什么结果是//而不是/.
第一次通过,.*匹配从零位(斯科特)开始的5个字符.这被/取代.
/ g表示尽可能多次匹配,因此它再次尝试,这次从位置5开始.
第二次通过,.*匹配从位置5开始的0个字符(空字符串).这被/取代.
第三次通过,.*从位置5(“”)开始匹配0个字符,但是有一个检查确保它连续两次与相同的起始位置和长度不匹配.所以它推进了位置并试图在第六位进行匹配.因为那是在字符串之外它失败了.