根据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//;