I got the output like ..
P:\>"C:\Documents and Settings\rkilaru\Desktop\prog.pl"
---> 1 2 3 4 2 3 5
--- 1--- 2--- 3--- 4--- 2--- 3--- 5
### 4 1 3 2 5
P:\>
Rajeev
On 2/13/07, kilaru rajeev <[EMAIL PROTECTED]> wrote:
Hi Irfan,
Please find the following way.........
@a = (1,2,3,4,2,3,5);
print "---> @a\n";
my %b = undef;
foreach (@a){
print "--- $_";
$b{$_} =undef;
}
@a = keys(%b);
print "\n### @a";
rgds,
Rajeev Kilaru
On 2/13/07, Sayed, Irfan (Irfan) < [EMAIL PROTECTED]> wrote:
>
>
> Hi All,
>
> I have one array having values as follows
>
> User [EMAIL PROTECTED]
> User [EMAIL PROTECTED]
> User [EMAIL PROTECTED]
>
> Now I formatted above array as per your suggession as follows in order
> to remove duplicate value "User"
> @test = grep { ++$hash{$_} < 2 } @test;
>
> but output is as follows which is not proper
>
> User [EMAIL PROTECTED]
>
> [EMAIL PROTECTED]
> [EMAIL PROTECTED]
>
> I need output in this fashion
>
> [EMAIL PROTECTED]
> [EMAIL PROTECTED]
> [EMAIL PROTECTED]
>
> Please help
>
> Regards
> Irfan.
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
> http://learn.perl.org/
>
>
>
