■Perlで配列Aから配列Bにある要素を取り除くには？

@itemsから@keyにある要素を除いたリストを@updateとして欲しいのですが、

下記のコードよりも、より高速な記述があれば是非ご教授くださいませ。

my @update = grep { my $a = 1; foreach my $b (@key) { $a = 0 if $_ eq $b; } $a; } @items;

Permalink | 記事への反応(1) | 03:44

ツイートシェア