Perl의 해시 인쇄

Question

"2/8"을 인쇄하는 이유는 다음과 같습니다.

#!/usr/bin/perl 
#use strict; 
#use warnings; 
%a = ('a'=>'dfsd','b'=>'fdsfds'); 
print %a."\n"; 

Answer 1

당신은 스칼라 문맥에서 해시를 평가하는 경우 'N \'문자열

로 연결하여 scalar context에 해시를 인쇄, 그것은 해시 이 비어있는 경우 false를 반환합니다. 키/값 쌍이 있으면 true를 반환하고 그렇지 않으면 false를 반환합니다. more 정확하게 반환 된 값은 사용 된 버킷 수와 할당 된 버킷 수로 구성되며 슬래시로 구분 된 문자열입니다.

2/8는 할당 8 버킷 것을 2 터치 된 것을 의미한다. 값을 2 개만 삽입했다는 것을 고려하면 지금까지 잘 해내 고 있습니다. :)

해시 함수가 얼마나 잘 수행되고 있는지 평가하는 것 외에는 아무런 쓸모가 없습니다. 내용을 인쇄하려면 print %a;을 사용하십시오.

Answer 2

@Dark에서 언급했듯이 스칼라 컨텍스트에서 해시를 인쇄합니다. 당신이 정말로 해시를 인쇄하려면

, 다음 예에 대한 데이터 :: 덤퍼

use Data::Dumper; 
... 
... 
print Dumper(%a); 

를 사용

use Data::Dumper; 
my %hash = (key1 => 'value1', key2 => 'value2'); 
print Dumper(%hash); # okay, but not great 
print "or\n"; 
print Dumper(\%hash); # much better 

그리고 출력 :

$VAR1 = 'key2'; 
$VAR2 = 'value2'; 
$VAR3 = 'key1'; 
$VAR4 = 'value1'; 
or 
$VAR1 = { 
      'key2' => 'value2', 
      'key1' => 'value1' 
      };