Help for this page

Select Code to Download


  1. or download this
    my %seen;
my $num_unique_users =
    grep !$seen{ $HoH{$_}{user} }++,
    keys(%HOH);
  2. or download this
    my %seen;
my @unique_users =
    grep !$seen{ $HoH{$_}{user} }++,
    keys(%HOH);
  3. or download this
    my %seen;
my @unique_users =
    grep !$seen{$_}++,
    map $HoH{$_}{user},
    keys(%HOH);