Re: removing duplicate entries from an array

Here is one way:

use strict;
use warnings;

my @names = qw(Mary Mary Mary Mary Joe Joe Joe);
my %unique;
@unique{@names} = undef;
@names = keys %unique;
print join ", ", @names;
[download]

Prints:

Joe, Mary

Update s/undef/()/ per Roy Johnson's reply

Perl is Huffman encoded by design.

Comment on Re: removing duplicate entries from an array Select or Download Code

Replies are listed 'Best First'.
Re^2: removing duplicate entries from an array by Roy Johnson (Monsignor) on Nov 07, 2005 at 21:37 UTC
Just a style point: assigning a scalar to a hash slice is quirky. Save a few keystrokes and have dimensional consistency by doing `@unique{@names} = ()` instead. Caution: Contents may have been coded under pressure.	[reply] [d/l]
Re^2: removing duplicate entries from an array by davidrw (Prior) on Nov 07, 2005 at 21:21 UTC
OP asked for quick & dirty :) `print join ", ", keys %{{map {$_=>undef} @XYZ}};` [download]	[reply] [d/l]
Re^3: removing duplicate entries from an array by Roy Johnson (Monsignor) on Nov 07, 2005 at 22:01 UTC
Dirtier: `print join ', ', keys %{(grep \@{$_}{@XYZ}, {})[0]};` [download] `;-)` Caution: Contents may have been coded under pressure.	[reply] [d/l]
Re^3: removing duplicate entries from an array by GrandFather (Saint) on Nov 07, 2005 at 21:32 UTC
Dirtier maybe, quicker not: `use strict; use warnings; use Benchmark qw(cmpthese); my @XYZ = qw(Mary Mary Mary Mary Joe Joe Joe); cmpthese ( -1, { 'GF' => sub {my %unique; @unique{@XYZ} = (); keys %unique;}, 'DW' => sub {keys %{{map {$_=>undef} @XYZ}};}, 'RJ' => sub {keys %{(grep \@{$_}{@XYZ}, {})[0]};}, } );` [download] Benchmark results: `Rate DW RJ GF DW 71543/s -- -62% -73% RJ 188025/s 163% -- -28% GF 260808/s 265% 39% --` [download] Updated to include Roy Johnson's "dirtier" version Perl is Huffman encoded by design.	[reply] [d/l] [select]
Re^4: removing duplicate entries from an array by davidrw (Prior) on Nov 07, 2005 at 21:47 UTC
good point... though depends on OP's definition of "quick & dirty" and if it's in reference to the coding or the actual execution... :)	[reply]


Perl-Sensitive Sunglasses
	PerlMonks