Re: using grep and hash to delete duplicate elements from an array

[Brian Fraser]

use File::Basename;

my @file_list = qw(aa dd bb/aa cc dd kk/dd hh);
my @unique = do {
    my %seen;
    grep { $seen{$_} == 1 } grep { ! $seen{ basename( $_ ) }++ } @file_list;
};

Brian.

[0] http://perldoc.perl.org/File/Basename.html