配列から指定した内容の要素を削除する

何番目の要素を削除とかはよくあるけど、指定した内容の要素を削除というサンプルがなかったので簡単だけど書いてみる。

use strict;
use warnings;

my @lst = qw( foo bar baz );
print "@lst\n";
# foo bar baz

@lst = grep $_ ne "bar", @lst;
print "@lst\n";
# foo baz 

grep関数で正にならないものを返すだけだが、別にgrepの引数は正規表現でなくていいことを以外とみんな知らない。