perl - 根据 perl 中的存在性从字符串中删除子字符串

Question

我有一个数组——@values包含这样的元素。

abcd
ijk.*
alba
^defg
xyz.domain.example.com

我正在对数组进行这样的检查：

foreach $val(@values)
{
    if(!`grep $val /tmp/list` && (!grep /$val/,@anotherlist )
    {
        #Perform an action;
    }
}

我的/tmp/list和@anotherlist可能/可能不包含类似xyz或正则表达式值但不包含xyz.domain.example.com. 这domain是可变长度的。

那么，.domain.example.com如果我在字符串中找到它，你能建议一种方法来删除它吗？我还在一个名为@domain.

我希望在我当前的 if 语句中使用操作解决方案。

Answer 1

循环中的索引变量for/foreach是数组元素的别名。如果您对索引变量进行更改，那么您也在对数组元素进行更改。

#Perform an action;
$val =~ s/\.domain\.example\.com//;