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

Question

我正在尝试按照本教程学习我自己的代码,现在基本上将一个值读入一个标量,该标量被推入一个名为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;