Perl unique array elements

open(INFILE, “$ARGV[0]”) or die(“Cannot open file $_[0] for reading: $!”);

while(my $line = <INFILE>) {
chomp($line);

my %hash = ();
my $v,$j;
my @list;
my @word = split(/,/,$line);

foreach(@word){
if(exists $hash{$_}){
$hash{$_}++;
}else{
$hash{$_}=1;
}
}

while(($v,$j) = each(%hash)){

push(@list,$v);

}

print join(“,”,sort(@list)).”\n”;
}

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s