comment on

Hi tty1x,
A few snapshot observations and 2 'kobo' suggestion:

A number of solution previously given to you actually work, only that some may not preserve the order of data.

This does work for me, which is not far from your OP, except that I have to create the variable $match.

use warnings;
use strict;

my $match = <<'EOF';
dddd@fgg.com
cccc@fgg.com
eeee@fgg.com
dddd@fgg.com

EOF

my %seen;
my @r;

foreach my $v ( split /\n/, $match ) {
    unless ( $seen{$v}++ ) {
        push @r, $v;
    }
}
$" = "\n";
print "@r";
[download]

Please, as much as possible try not to use the variable $a, since function sort uses it

Tested this out on codepad an online compiler/interpreter.

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

In reply to Re: Removal of duplicated element in array. by 2teez
in thread Removal of duplicated element in array. by tty1x

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


XP is just a number
	PerlMonks