Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
        grep { !$seenName{$_->{name}}++ or !$seenCollege{$_->{college}}++ 
    +} @students};
    print Dumper \@unique;
    
  2. or download this
    my @unique = do { 
        my %seen; grep { !$seen{$_->{name}}{$_->{college}}++ } @students};