perl - Perl の grep を使用して配列内の文字列を削除する

Question

次の配列があります。

$arry = [
      '',
      'foo',
      'bar',
      'ion'
    ];

私がやりたいのは、とを削除すること"" ionですbar。しかし、なぜこれが失敗したのでしょうか。

my @new = grep {!/ |ed|ion/} @$arry;

それは印刷します：

$VAR1 = [
          '',
          'foo',
          'bar'
        ];

ここでテスト: https://eval.in/50792

Answer 1

あなたgrepは要素''、'foo'、および を残し'bar'ます。これは、単一のスペース、、またはを含む要素を削除しているためです。配列の 1 つの要素のみがこの条件に一致します。最後の要素は です。というわけで、これだけを削除。'ed''ion''ion'

おそらくあなたがしたい

my @new = grep { $_ ne '' and $_ ne 'ion' and $_ ne 'bar' } @$arry;

また

my @new = grep $_ !~ /\A(?:|ion|bar)\z/, @$arry;

Answer 2

これを試して：

my @new = grep {!/^$|ed|ion/} @$arry;