Breaking News: Grepper is joining You.com. Read the official announcement!

find min and max in perl hash

@CodeGrepperManu answered on April 26, 2023 Popularity 1/10 Helpfulness 1/10

answer find min and max in perl hash

related find min and max in perl hash

find min and max in perl hash

Comment

#!/usr/bin/perl
use strict;
use warnings;
use List::Util qw(max min);

my %fruits_array = ('Mango'=>45, 'Orange'=>30, 'Grapes'=>40, 'Apple'=>100);

foreach my $fruit (sort {$fruits_array{$a}<=>$fruits_array{$b}} keys %fruits_array)
{
  print $fruit." = ".$fruits_array{$fruit}."\n";
}

print "=== \n";
my $maxVal = max values %fruits_array;
my ($maxKey) = grep{ $fruits_array{$_} eq $maxVal } keys %fruits_array;
print " Max fruits price : ".$maxKey." ".$maxVal;
print "\n";
my $minVal = min values %fruits_array;
my ($minKey) = grep{ $fruits_array{$_} eq $minVal } keys %fruits_array;
print " Min fruits price : ".$minKey." ".$minVal;

Popularity 1/10 Helpfulness 1/10 Language perl

Source: onecompiler.com

Tags: find max min perl perl-hash

Link to this answer
Share Copy Link

Contributed on Apr 26 2023

@CodeGrepperManu

0 Answers Avg Quality 2/10

Closely Related Answers

find min and max in perl hash

Comment

#!/usr/bin/perl
use strict;
use warnings;
use List::Util qw(max min);

my %fruits_array = ('Mango'=>45, 'Orange'=>30, 'Grapes'=>40, 'Apple'=>100);

foreach my $fruit (sort {$fruits_array{$a}<=>$fruits_array{$b}} keys %fruits_array)
{
  print $fruit." = ".$fruits_array{$fruit}."\n";
}

print "=== \n";
print max values %fruits_array;
print "=== \n";
print min values %fruits_array;

Popularity 1/10 Helpfulness 1/10 Language perl

Source: onecompiler.com

Tags: perl-hash find max min perl

Link to this answer
Share Copy Link

Contributed on Apr 26 2023

@CodeGrepperManu

0 Answers Avg Quality 2/10

find min and max in perl hash

Contents

More Related Answers

find min and max in perl hash

Closely Related Answers

find min and max in perl hash

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.