배열을 해시로 복사

Question

해시에 배열을 복사하려고합니다. 배열의 각 요소가 키이고 그 뒤에 빈 값이옵니다.

이

 %hash = map { get_a_key_for($_) => $_ } @array; 

하지만 키를 설정하는 방법을 알아낼 수 없습니다 :

my %questions = map { @u_list => $_ } @u_list; 

이 유일한 지문이

=> 

에서 나는 perldoc을에이 관용구를 참조하십시오. 키가 배열의 각 요소가되기를 원합니다.

Answer 1

my %questions = map { $_ => undef } @u_list; 

, @u_list의 각 요소를 설정해 ~ $ _.

Answer 2

슈퍼 복잡하지만 기능적 않음 :

@questions{@u_list}=(); 

이는 해시 키 세트를 지정하는 해시 슬라이스 구문을 사용 .. 맵

Answer 3

%hash = map { $_ => '' } @array; 

이것은

Answer 4

$_이 목록 @u_list의 현재 요소 인 빈 문자열로 값을 설정합니다.

그래서 당신은

my %questions = map { $_ => 1 } @u_list;

해시 키와 같은 목록 요소를 매핑 말해야한다.

Answer 5

참조 용으로 여기에 몇 가지 방법이 있습니다. hash slice를 사용하여 foreach

my %questions; 
$questions{$_} = undef foreach (@u_list); 

를 사용 map

my %questions = map { $_, undef } @u_list; 

를 사용

.

my %questions; 
@questions{@u_list} = (undef) x @u_list;