regex - 如何使用perl检查字符串中的数字

Question

我在变量中有一个字符串，$vreponse字符串是

int.force_snmp_version  T_SIZE  3

我要做的就是验证字符串中是否有数字 3。如果验证成功，则打印一条消息，否则打印失败消息

我尝试过这样的事情

my $vresponse = $ua->get("https://$user:$pass\@$ern_ip/get_param?p=init.force_snmp_version");

if ($vresponse->decoded_content =~ /\b3$/)
{
print "SUCESS\n";
}
else
{ print "not\n"; }

这不起作用，我需要改变$vresponse->decoded_content吗？

Answer 1

也许只是

if ( $vresponse =~ /3/ ) { ... }

它只是检查3字符串中某处是否有一个字符。

或者，更准确地说

if ( $vresponse =~ /\b3$/ ) { ... }

它检查最后一个字符是3并且它是单独的，即不是结尾，比如说，23。

Answer 2

my $vresponse = 'int.force_snmp_version  T_SIZE  3';
my $char = '3';

my $result = index($vresponse , $char);

if ($result >=0)
{
  #display found
}
else
{
  #display not found
}