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/listand には、またはの@anotherlistようなxyz正規表現値が含まれている可能性がありxyz.domain.example.comますが、ここdomainは可変長です。

文字列で見つかった場合、削除する方法を提案できます.domain.example.comか? また、ドメインのリストをという配列に保持しています@domain。

現在の if ステートメント内で操作を行うソリューションが必要です。

score 0 · Accepted Answer

for/foreachループ内のインデックス変数は、配列要素のエイリアスです。インデックス変数を変更すると、配列要素も変更されます。

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

1 に答える 1