Shell Programming and Scripting

@array=('a','a','a','b','c','c','d','e','e');

@array1=('1','2','3','4','5','6','7','8','9');

@unique_elements=();
my %seen = ();

        my @unique_elements = grep !$seen{ $_ }++, @array;
        #@s=grep !$seens{ $_ }++, @pmid;
        foreach my $elem ( @unique_elements )
        {
                if($seen{$elem}>1)
                {
                       
                                print "<br>$elem appeared $seen{$elem} times <br>";
                       
                }
        }

a appeared 3 times and id =1, 2 and 3

b appeared 1 times and id= 4

c appeared 2 times and id= 5 and 6

d appeared 1 times and id=7

e appeared 2 times and id=8 and 9

foreach $id (@array1)
{
	#using the above code

}

@array=('a','a','a','b','c','c','d','e','e');

map { 
  $uniq{$_}++;
  push @{$idx{$_}}, ++$c
  } @array;

print map {
  $_, " appeared ",
  $uniq{$_}," times with ids ",
  join(',', @{$idx{$_}}), "\n"
  } sort keys %uniq;

% perl -e'
@a=('a','a','a','b','c','c','d','e','e');
map{$uniq{$_}++;push @{$idx{$_}},++$c}@a;
print map{$_, " appeared ",$uniq{$_}," times with ids ",
join(",", @{$idx{$_}}), "\n"}sort keys%uniq
'
a appeared 3 times with ids 1,2,3
b appeared 1 times with ids 4
c appeared 2 times with ids 5,6
d appeared 1 times with ids 7
e appeared 2 times with ids 8,9

Hum Genet appeared 2 times with ids 23,18

Genomics appeared 1 times with ids 12

Hum Genet appeared 2 times with ids 2370044,18570886

Genomics appeared 1 times with ids 12799737

@array=('Hum Genet','Hum Genet','Genomics');

@array1=('2370044','18570886','12799737');

map { 
  $uniq{$_}++;
  push @{$idx{$_}}, shift @array1
  } @array;

print map {
  $_, " appeared ",
  $uniq{$_}," times with ids ",
  join(',', @{$idx{$_}}), "\n"
  } sort keys %uniq;

@array=('a','a','a','b','c','c','d','e','e');
@array1=('1','2','3','4','5','6','7','8','9');
for($i=0;$i<=$#array;$i++){
	$hash{$array[$i]}->{NUM}++;
	$hash{$array[$i]}->{POS}.=(($hash{$array[$i]}->{POS})?", ":"").$array1[$i];
}
for $key(sort keys %hash){
	print $key," appeared ",$hash{$key}->{NUM}," times and id =",$hash{$key}->{POS},"\n";
}