我可以使用数组的内容作为哈希的键吗？

Question

我希望我的数组成为我的新哈希的键.我正在编写一个计算文档中单词出现次数的程序.

my @array = split(" ", $line);

keys my %word_count = @array; #This does nothing

当我逐行读取infile时,这段正在发生.我试图找到一种方法来使用哈希来完成这个项目.单词是键,它们出现的次数是值.但是,这一步特别让我感到困惑.

Answer 1

使用哈希切片.

my %word_count;
@word_count{split ' ', $line} = ();

# if you like wasting memory:
# my @array = split ' ', $line;
# @word_count{@array} = (0) x @array;