HOP6.5でなんだコレは？と。($_,@_)なんてありなのかと思ったがどうも違った。
sub test {
my ($h, @s) = grep $_, @_;
print "h:\t$h\n";
print "s:\t";
print join ",",@s,"\n";
}
test(3,undef,1,4,5);
実行結果
h: 3
s: 1,4,5,
配列の中からundefを除く、($_,@_)っていう配列ではなくて grep {$_} @_みたいな感じのgrep tipsだった。