在陣列中刪除字符串使用Perl的grep的

Question

我有以下陣列：

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

我想要做的是去除""ion和bar。 但爲什麼這失敗？

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

它打印：

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

測試在這裏：https://eval.in/50792

Answer 1

試試這個：如果你想保留的話就像edition

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

Answer 2

，用途：

my @new = grep {!/^$|\b(?:ed|ion)\b/} @$arry; 

Answer 3

您的grep保留了元素'','foo'和'bar'。這是因爲它是刪除包含單個空間的元素，'ed'或'ion'。你的數組中的一個元素符合這個標準：最後一個，它是'ion'。所以只有這一個被刪除。

也許你想

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

或

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