Rex Arul wrote:
>
> Andrea,
>
> Even if you do have commified strings, it should still work. Right?
>
> ###################################
> use strict;
> my(@array, @unique, %seen);
> $array[0] = ["apples","oranges","plums", "Arul, Rex", "Holstein, Andrea",
> "Clinton,Bill"];
> $array[1] = ["asparagus", "corn","peas"];
> $array[2] = ["ham","chicken","lamb"];
> $array[3] = ["apples","oranges","plums", "Arul, Rex", "Holstein, Andrea",
> "Clinton,Bill"];
> my @unique = grep {!$seen{join (", ", @$_)}++} @array;
> map { print "@$_ \n" } @unique;
> ##################################
>
$array[4] =
["apples","oranges","plums","Arul","Rex","Holstein","Andrea"];
is different to all the other array entries.
But my quick and dirty solution thinks it is same :-))
But I believed that it's not the problem for Clinton.
Greetings,
Andrea
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
