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