arrays - 在 perl 中搜索替换数组

Question

我有一个数组，如果数组中存在具有特定值的特定值，我想替换该特定值。

数组

my @array_list = ('TEST12','TEST14','TEST','TEST23');

我试过的是:

foreach (@array_list) { 
    if($_ eq "TEST"){
        $_ =~ s/$_/HT/;
    }
 } 

还有其他更好的方法吗？请帮助我

Answer 1

假设您只想就地替换单个完全匹配项:

use strict;
use warnings;

my @array_list = ('TEST12','TEST14','TEST','TEST23');

$_ eq 'TEST' and $_ = 'HT' for @array_list;

use Data::Dump;
dd @array_list;

输出:

("TEST12", "TEST14", "HT", "TEST23")

也可以用正则表达式完成同样的事情:

s/\ATEST\z/HT/ for @array_list;