How to sort the data?

[lilly07]

Hi I have one row of data from a database as @data.

I need to sort the items available in $data[1], 2,3,4,5,6,7,8 positions

For example if the data are as below:

man, women, man, man, women, man, man, man in their respective position. Then I want my output to be as below:

134678: man
25: woman

How do I do this? I am not so familiar with perl hash as a beginner. It would be of great help if someone helps me out.
Thanks and Regards

[nithinpes]

You have to create a hash from the array with each unique element as key. Then parse the array and concatenate the position value for each element matching the key, as follows:

@data=(man, women, man, man, women, man, man, man);

foreach(@data) {
 $entry{$_}++; 
 #hash with each unique data as key & number of occurence as its value
}

foreach my $key (sort keys %entry) {
 my $i=1;
 my $str;
  foreach(@data) {
  $str.="$i" if(/$key/); #concatenate the position 
  $i++;
}
 print "$str: $key\n";
}

[KevinADC]

another way using a hash of arrays:

@data = qw(man women man man women man man man);
my %hash;
my $i;
foreach my $thing (@data) {
   push @{$hash{$thing}},$i++;
}
for (keys %hash) {
   print "$_:", join(',',@{  $hash{$_} }), "\n"; 
}

[alampally]

Hi Lilly,


Good Luck,

Write me for any help in C, C++, Perl, PHP and UNIX related stuff. I will answer you with in the time with free of cost.

Rammohan Alampally,
HP Technologies
Bangalore

[jain236]

Hi Lilly,


Good Luck,

Write me for any help in C, C++, Perl, PHP and UNIX related stuff. I will answer you with in the time with free of cost.

Rammohan Alampally,
HP Technologies
Bangalore

Hi ramohna may a simple way, no to complicate life with hasesh

@data=('man', 'women', 'man', 'man',
       'women', 'man', 'man', 'man');
my $str;
my $women;
for ($i = 1;$i <=$#data+1;$i++)
{
  $str.= $i if $data[$i-1]=~ /man/;
   $women.= $i if $data[$i-1]=~ /women/;
    
}
print "$str:man\n";
print "$women:women";

[lilly07]

Thanks for the help.