perlのgrepで空文字を配列から消す  [perl]  [tips]  [idiom]


my @result = grep{$_} @array;