如何檢查一些在字符串用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 
}