perl 正则前导字符

uat-prx02:/root# cat a1.pl 
my $str="123";
if ($str =~/(abc)*/){print "111111111\n"};

uat-prx02:/root# perl a1.pl 
111111111

匹配 0 次或多次 abc 字符串


uat-prx02:/root# cat a1.pl 
my $str="abc";
if ($str =~/(abc)+/){print "111111111\n"};
uat-prx02:/root# perl a1.pl 
111111111

uat-prx02:/root# cat a1.pl 
my $str="abcabc";
if ($str =~/(abc)+/){print "111111111\n"};
uat-prx02:/root# perl a1.pl 
111111111

+: 一个或多个相同的前导字符(模式)


uat-prx02:/root# cat a1.pl 
my $str="abcabc";
if ($str =~/(abc){2}/){print "111111111\n"};
uat-prx02:/root# perl a1.pl 
111111111

uat-prx02:/root# cat a1.pl 
my $str="abcc";
if ($str =~/(abc){2}/){print "111111111\n"};
uat-prx02:/root# perl a1.pl 
uat-prx02:/root# ^C
uat-prx02:/root# ^C

匹配不上


uat-prx02:/root# cat a1.pl 
my $str="abcc";
if ($str =~/abc{2}/){print "111111111\n"};
uat-prx02:/root# perl a1.pl 
111111111