Re: Detecting duplicate entries


Think about Loose Coupling
	PerlMonks

Re: Detecting duplicate entries

by kilinrax (Deacon)

on Mar 01, 2001 at 21:56 UTC ( [id://61590]=note: print w/replies, xml )

Need Help??

in reply to Detecting duplicate entries

Slurp it into a hash? ;-)

#!/usr/bin/perl -w 
 
use strict; 
 
my %unique; 
while (<DATA>) { 
  chomp; 
  $unique{$_} = ''; 
} 
 
my @array = keys %unique; 
 
 
$, ="\n"; 
print @array; 
 
__DATA__ 
Brentwood 
Brentwood 
Westwood 
Beverly Hills 
Beverly Hills 
Beverly Hills 
Bev Hills Adj. 
Palms 
Mar Vista 
Mar Vista 
Mar Vista 
Mar Vista 
Mar Vista 
Venice 
Santa Monica 
Santa Monica 
LA/Crescent 
LA/Crescent 
Koreatown 
3rd/LaBrea 
3rd/LaBrea 
3rd/LaBrea
[download]

(of course, if you want to preserve order too, some extra cunningness will be required; but the basic idea remains the same)