Perl/펄] 대소문자 구분 없이 정렬, 문자열 배열 소팅; Sort Ignore Case, String Array

#!/usr/bin/perl
use strict; use warnings;


my @a = ( "bbb", "AAA", "DDD", "CCC", "aaa" );


# 대소문자 구분하여 정렬
@a = sort @a;
print join(" ", @a);
# 배열 출력: AAA CCC DDD aaa bbb



print "\n"; # 줄바꿈



# 대소문자 구분 없이 정렬
@a = sort { lc($a) cmp lc($b) } @a;
print join(" ", @a);
# 배열 출력: AAA aaa bbb CCC DDD



print "\n"; # 줄바꿈



# 대소문자 구분 없이 내림차순(역순) 정렬
@a = reverse sort { lc($a) cmp lc($b) } @a;
print join(" ", @a);
# 배열 출력: DDD CCC bbb aaa AAA