删除数组的Perl哈希中的空字符串

Question

我有这种结构的哈希

{
  a => ['1', '2', '', '5', '6', '7', '8'],
  b => ['1', '2', '3', '6', '7', '8', '9'],
  c => ['2', '', '4', '', '', '8', ''],
}

我需要这样的一些

{
  c => ['2', '4', '8'], 
  a => ['1', '2', '5', '6', '7', '8'], 
  b => ['1', '2', '3', '6', '7', '8', '9']
}

如何删除''值？

Answer 1

您可以直接更改返回的数组引用列表,values如perldoc中所述.

use warnings;
my %h = (
  'c' => ['2','','4','','','8',''],
  'a' => ['1','2','','5','6','7','8'],
  'b' => ['1','2','3','6','7','8','9']
);

@$_ = grep defined && length, @$_ for values %h;

如果undef不应过滤掉值,

@$_ = grep !defined || length, @$_ for values %h;