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
my @arr = qw(hello world Show Must go on);


print join(" ", sort {lc($b) cmp lc($a)} @arr), "


";


 

Gaurav.khurana

 Profile Answers by Gaurav.khurana 

• Apr 18th, 2015

 

Code
        @array = qw( Udzial IS going Where means  How are Youu you share);


        print join (" ", reverse(sort{lc($a) cmp lc ($b) } (@array)));


     #  cmp used to do characters sort and 


     #  lc to do case insensitive


     # after sorting applied reverse on it

iamkamalnayan

 Profile Answers by iamkamalnayan 

• Dec 26th, 2016

 

Code
print join  , sort {lc $b cmp lc $a} @arr;