Print this array, sorted in reversed case-insensitive order...

You have unsorted array of strings, like:
my @arr = qw(hello World Show must go on);
Print this array, sorted in reversed case-insensitive order.

Namataraginu
Profile Answers by Namataraginu Questions by Namataraginu
Jan 31st, 2008
9
9294

Questions by Namataraginu

Perl

Answer

Showing Answers 1 - 9 of 9 Answers

akmails23
Profile Answers by akmails23

Feb 6th, 2008

@solution = sort { lc $a cmp lc $b } @arr;This will give the required solution.Thanks,Kalai

wow_suraj
Profile Answers by wow_suraj

May 2nd, 2008

my @arr = qw(hello World Show must go on);
@arr = reverse sort(@arr);

foreach (@arr)
{
print "+---|$_|----+n";
}

This code will give you the reverse sort array.

rahulashu
Profile Answers by rahulashu

Jun 10th, 2008

#! /bin/perl
@array = ("b","f","n","m");
@array = ( reverse ( sort(@array) ) );
print "@arrayn" ;

kglukhov
Profile Answers by kglukhov

Jul 11th, 2008

@x=qw(A d E f B c x Y);
print "Original arrayn";
print join(',',@x),"n";
print "Original array sorted in reverse order case insensitiven";
print join(',',sort {"L$b" cmp "L$a"} @x),"n";

ajit_saley
Profile Answers by ajit_saley

Jul 15th, 2009

@arr = qw(ajit satish AJIt amartya maku);

foreach my $ele (@arr)
{
push (@new_arr, lc($ele));
}
print "n new arr= @new_arr";
@rev_arr =reverse sort(@new_arr);

j0eb0b
Profile Answers by j0eb0b

Oct 31st, 2009

my @arr = qw(hello World Show must go on);

#close
print "@arr nreverse sorted: ", join(", ", reverse sort map {lc $_} @arr), "n";

#closer
print "@arr nreverse sorted: ", join(", ",
        map { $_->[0] }
        sort { $b->[1] cmp $a->[1] }
        map { [$_, lc $_] }
        @arr), "n";

Matt LaSaine

May 29th, 2014

Code
span style="color: #ff0000;">" ", sort {lc($b) cmp lc($a)} @arr), "


";

Gaurav.khurana
Profile Answers by Gaurav.khurana

Apr 18th, 2015

Code
span style="color: #ff0000;">" "#  cmp used to do characters sort and 


     #  lc to do case insensitive


     # after sorting applied reverse on it