总觉得应该可以执行if语句中的内容，但实际上未执行。请赐教！

li_haigang

#以下是脚本内容。总觉得应该可以执行if语句中的内容，但实际上未执行。请赐教！


use strict;
use warnings;


my $a = "ababab\naaaa\nabab";

#my $numOfAssigned = $a =~ s/(ab)/$1/g;
my $numOfAssigned = $a =~ s/(AB)/$1/g;

print $numOfAssigned;

print "\n";

print "---------------\n";



#my $numOfAssigned = 'A';

print '$numOfAssigned1:'."$numOfAssigned";

print "\n";


if ( $numOfAssigned =~ m/[^0-9]/ ) {

   $numOfAssigned = 0;
   
   print '$numOfAssigned2:'."$numOfAssigned";
   
   print "\n";

}

print '$numOfAssigned3:'."$numOfAssigned";

grshrd49

$numOfAssigned 你都打印出来了 都是空值 则么执行if中的条件呢
你的脚本功能是啥呢
我没猜错的话 你第一条正则后加个i 就像这样

1. my $numOfAssigned = $a =~ s/(AB)/$1/ig;

复制代码

i是让正则忽视字母大小写

li_haigang

但凡$numOfAssigne变量中不包含数字，便可以执行if块中的语句。

空值不属于非数字吗？

grshrd49

回复 3# li_haigang

1. /[^0-9]/

复制代码

他这个意思是开头是0-9的单个数字吧

li_haigang

非也。其含义是不包含0-9的数字。
你的说法应该是/^0-9/。

yybmsrs

[^0-9]是非数字的字符中的一个，但是空不是一个字符