在一个单词中找到一个字符串并用perl中的另一个替换完整的单词

Question

我想在一个单词中找到一个字符串，然后用 perl 中的另一个字符串替换整个单词。

例如：我有以下字符串。

my $str =

<schedule environment="sit">
<hours>SIT_HR</hours>
</schedule> 
<schedule environment="uat">
<hours>UAT_HR</hours>
</schedule>
<schedule environment="prd">  
<hours>PRD_HR</hours>
</schedule>

我必须找到 *_HR 并将其替换为 60。

输出：

<schedule environment="sit">
<hours>60</hours>
</schedule> 
<schedule environment="uat">
<hours>60</hours>
</schedule>
<schedule environment="prd">  
<hours>60</hours>
</schedule>

Answer 1

您的输入看起来像一个没有根标记的 XML。

我添加了根标签并使用xsh 处理文件，这是XML::LibXML 的包装器：

open file.xml ;
for /root/schedule/hours {
    if xsh:matches(., '_HR$' ) set . 60 ;
}
save :b ;

Answer 2

试试这个。我不擅长 XML。但我完成了你所期望的输出。

use warnings;
use strict;
open('file',"file.xml");
my @file = <file>;
print @file if grep{s/.{3}_HR/60/g} @file;

在这里，我将file.xml 存储到数组@file 中。

grep 用于在数组中查找单词。

然后是用于替换数组中的字符串的替换。