perl (Ss+)+

[root@zjtlcb ~]# cat a1.pl 
my $a='a ';
if ($a =~/(Ss+)+/){print "111111
"};
[root@zjtlcb ~]# vim a1.pl 
[root@zjtlcb ~]# cat a1.pl 
my $a='a';
if ($a =~/(Ss+)+/){print "111111
"};
[root@zjtlcb ~]# perl a1.pl 
[root@zjtlcb ~]#
+是一次或者一次以上,这里表示一次非空格和空格以上
[root@zjtlcb ~]# cat a1.pl 
my $a=' a';
if ($a =~/(Ss+)+/){print "111111
"};
[root@zjtlcb ~]# perl a1.pl 
[root@zjtlcb ~]#

[root@zjtlcb ~]# cat a1.pl 
my $a='a ';
if ($a =~/(Ss+)+/){print "111111
"};
[root@zjtlcb ~]# perl a1.pl 
111111