Re: How can I get the four highest valued letters in an array?

[thanos1983]

Hello supriyoch_2008,

Another possible way, using Slices.

I would have the same approach as 1nickt did already. Initially create a hash from two arrays and then simply sort the values in descending order.

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;

my %hash;
my @x = qw/d b c e a f/;
my @y = qw/4 6 5 2 9 1/;

@hash{@x} = @y;

print Dumper \%hash;

my @sorted = (sort {$hash{$b} <=> $hash{$a}} keys %hash) [0 .. 3];

print Dumper \@sorted;

__END__

$ perl test.pl
$VAR1 = {
          'f' => '1',
          'c' => '5',
          'a' => '9',
          'd' => '4',
          'b' => '6',
          'e' => '2'
        };
$VAR1 = [
          'a',
          'b',
          'c',
          'd'
        ];

Hope this helps.

[supriyoch_2008]

Hi thanos1983,

Thank you for your help. The code given by you has solved my problem.

With deep regards,

[thanos1983]

Hello again supriyoch_2008,

Thanks for the feedback, just to add something here. All answers of the monks are working, try them, or at least read and understand them for educations purposes.

Also fellow monk tybalt89 just posted a nice approach Re: How can I get the four highest valued letters in an array?, using grep.

If I was use you I would create subroutines to test all solution through Benchmark and decide the best approach based on speed. Or decide which one is easier for your to understand and maintain in future.

Keep up the good work and happy coding. :D