Perl 初心者コーナー Part24

[0942 nobodyさん 03/06/27 13:21 ID:???]

>>941
こんな感じかのう

@check = ();
@houselist = grep { !$check{$_->{id}}++ } @houselist;