arrays - 在 perl 中为数组内的所有元素添加引号

Question

我正在尝试关注 this tutorial对于我自己的代码，它现在基本上将一个值读入一个标量中，该标量被插入一个名为 states 的数组中。但是，它没有像教程中那样正确地散列函数，我相信它是因为数组的内容没有正确引用。

我试过了

foreach (@states)
{
      q($_);
} 

和

push @states, q($key);

但两者都不会产生必要的输出。目前我的输出显示为

NY, NJ, MI , NJ

使用时

print join(", ", @states);

我想让它显示

 'NY', 'NJ', 'MI' , 'NJ'

Answer 1

取状态，将它们映射到带引号的字符串，用逗号连接:

my @states = qw( NY NJ MI );
print join ', ', map "'$_'", @states;