在perl中查找子字符串

Question

我想检查字符串是否存在于xml标签中

并且xml标签的格式如下。

<admin var="s_admin">xyz</admin> 

我试着用

index($xmlString,$str) != -1 

但它不是为我工作。这里是我的代码：

my $hostname = hostname; 
my $wlsadmin = grep s_wls_admin_host $ENV{CONTEXT_FILE}; 
$wlsadmin=~s/^\s+|\s+$//g; 
if(index($wlsadmin,$hostname) != -1) { 
    print("True"); 
} 
print($hostname); 
print($wlsadmin); 

，这里是打印语句的值：

rws3510357 <wls_admin_host oa_var="s_wls_admin_host">rws3510357</wls_admin_host> 

Answer 1

正如其他人的评论，我不完全知道什么是适合你去错了，但这里有一个例子使用基于DOM的XML解析器来查找标签并提取其内容。从那里可以很容易地将这些内容与一些字符串进行比较，就像您使用index所做的那样。

#!/usr/bin/env perl 

use strict; 
use warnings; 

use Mojo::DOM; 
my $dom = Mojo::DOM->new(<<'END'); 
<wls_admin_host oa_var="s_wls_admin_host">rws3510357</wls_admin_host> 
END 

my $hostname = 'rws3510357'; 

my $wlsadmin = $dom->at('wls_admin_host')->text; 

if (index($wlsadmin, $hostname) != -1) { 
    print "True\n"; 
}