Perl에서 해시를 만들 수 없습니까?

Question

나는 펄 스크립트를 here에서 배우고있다. 해시를 만드는 데 문제가 있습니다. 코드는 다음과 같습니다.

print "Hello World!\n"; 
@days = ("1", "2"); 
print "There are $#days days\n"; 
print "1 is $days[0]\n"; 
%months = ("a" => 1, "b" => 2, "c" => 3); 
print "There are $#months keys\n"; 
print "a is $months[0]\n"; 
for $i (keys %months) 
{ print "$i has value $months[$i].\n"} 

이제 배열이 제대로 작동합니다. 해시 인쇄에는 "-1 키가 있습니다." 마지막으로 인쇄 호출시 변수 값에 아무 것도 인쇄하지 않습니다.

Answer 1

해시에서 배열 구문을 사용하고 있는데, 이는 전혀 생각하지 않습니다. 해시에서 작동하는 대신 @months이라는 배열에서 작업하고 있습니다. 예를 들어 :

print "There are $#months keys\n"; 

이 배열 @months을 찾을 것입니다, 그것은 비어있는 것을보고, 행복하게 -1을 인쇄 할 수 있습니다.

당신이 할 때 펄이 키 0 될 것 숫자에 a, b 및 c을 변환하려고합니다

for $i (keys %months) { 
    print "$i has value $months[$i].\n" 
} 

.

Argument "a" isn't numeric in array element ... 

그런 다음이 빈 배열 요소 $month[0]을 인쇄합니다 :이 경고를 발행합니다. 어떤 정의되지 않은 값 경고를 발급합니다. 사용하지 않았기 때문에 이러한 경고를받지 못합니다.

use strict; 
use warnings; 

스크립트에 있습니다. strict은 @months이 신고되지 않았으며 즉시이 버그를 중단 시켰다고 말했을 것입니다. 당신이 사용해야

구문은 다음과 같습니다

print "There are " . (keys %months) . " keys\n"; 
... 
print "$i has value $months{$i}\n"; 

Answer 2

$#months 및 $months[0]가 배열이 아닌 해시를 참조하십시오. 중괄호 $months{key}을 사용하여 해시 값에 액세스합니다.

use strict; 또한 변수를 my()으로 초기화해야합니다. 이 작업을 수행했다면 @months이라는 컴파일러 오류가 발생했을 것입니다.

Answer 3

Perl에서 해시의 요소에 액세스하는 것은 배열과 약간 다른 구문을 사용합니다.배열에 대한 해시에 대한 중괄호, 대괄호를 사용

:

print "a is $months{a}\n"; # "a is 1" 

그리고 $#months은 당신이 정말로 의미하는 것은 %months에서 키의 수를 계산했다 '@months의 마지막 인덱스'를 말하는 또 다른 방법입니다

printf "There are %d keys\n", scalar keys %months; 

당신은 print 대신 printf 주장하는 경우 :

print "There are $#{[keys %months]} keys\n"; 

_{(하지만 어쩌면 내가 t는 몇 단계 앞으로 가고 싶습니다.)}