Changes between Version 6 and Version 7 of Perl

Timestamp:

08/29/06 14:50:08 (18 years ago)

Author:

atzm

Comment:

--

Perl

@@ -272 +272 @@
 print $hash{(HOGE)}, "\n";
 }}}
+
+== ハッシュ関連 ==
+=== ハッシュが格納されている配列中で，ハッシュの中のある特定のキーの値が同じものを削除する ===
+{{{
+#!perl
+sub keygrep($$) {
+  my $array = shift;
+  my $key   = shift;
+  my %seen  = ();
+  my @res   = ();
+
+  @res = sort { $a->{$key} cmp $b->{$key} } @{$array};
+  @res = grep(!$seen{$_->{$key}}++, @res);
+
+  return \@res;
+}
+}}}
+ * ([{a=>1, b=>2}, {a=>2, b=>3}, {a=>1, b=>3}], "a") が [{a=>1, b=>2}, {a=>2, b=>3}] で返る．