왜 Perl로 단어를 정렬하는 것이 잘못 되었습니까?

Question

내 질문에 Perl이 : Perl 스크립트 텍스트 (문장 부호 또는 숫자 없음)를 읽고 정렬 된 단어 목록과 텍스트에 각각 번을 인쇄하는 스크립트.

#!/usr/bin/perl 
@names = qw(My name is Ashok Rao and I am the son of Shreesha Rao and Shailaja Rao); 
join(',',@names); 
my %count; 
foreach (@names) 
{ 
if (exists $count{$_}) 
{ 
    $count{$_}++; 
} 
else 
{  
    $count{$_} = 1; 
} 
} 
my @order = sort(@names); 
print "The words after sorting are:\n"; 
print "@order\n"; 
print "The number of times each word occurring in the text is: \n"; 
foreach (keys %count) 
{ 
print "$_ \t = $count{$_}\n"; 
} 

출력은 다음과 같습니다 : 내 스크립트입니다

The words after sorting are: 
Ashok I My Rao Rao Rao Shailaja Shreesha am and and is name of son the 
The number of times each word occurring in the text is: 
the = 1 
son = 1 
of = 1 
name = 1 
Ashok = 1 
Shailaja = 1 
is = 1 
Rao = 3 
am = 1 
My = 1 
I = 1 
and = 2 
Shreesha = 1 

하지만 정렬 부분 출력이 잘못 생각합니다. 단어 발생 부분 출력이 정확합니다. 도와주세요. 미리 감사드립니다.

Answer 1

perl은 대문자와 소문자를 구별합니다. uc 및 lc 함수를 사용하여 문자열을 대문자 또는 소문자로 변환 할 수 있습니다.

Answer 2

다른 사람들도 지적했듯이 문제는 단어 순서가 아닌 ASCII 문자 코드로 정렬이 발생한다는 것입니다. 이것은 모든 대문자가 모두 소문자로 진행됨을 의미합니다. 정렬 함수를 호출 할 때이 문제를 해결하기 위해, 그냥 자신의 비교를 지정 비교 소문자의 각면을 만들어

my @order = sort {lc $a cmp lc $b} @names; 

, 이것은 올바른 알파벳 순서를 할 수 있습니다.