Replacing duplicates in an array

[perln]

Hi everybody,
I seem to have hit a wall with my perl script. I have managed to get my data into a desired format besides one problem: duplicates.
I'm not trying to remove them, I'm trying to rename them so that I can export them as field names into mysql.
Basically if I have an array such as
@a = (a,b,c,a,d,a),
I'm trying to alter it ie
@a_new = (a,b,c,a1,d,a2)

If you can suggest me some pointers, I'd greatly appreciate it. Thanks!

 

[travs69]

my %known;
for my $num(@a) {
if ($known{$num}) {
$known{$num}++;
print "$num$known\n";
}
else {
$known{$num} = 0;
print "$num\n";
}
}

Try that..

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[rharsh]

Here's one way:

my @array = qw/a b c a d a/;
my %seen;
my @array_new = map {$_ . ($seen{$_}++ ? $seen{$_}-1 : "")} @array;

 

[perln]

Thank you travs69 & rharsh .... It's working now!