在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"; 
}