向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

要添加身邊，您可以使用雙引號字符串插值值報價：

"'$_'" 

或者你可以使用字符串連接：

"'".$_."'" 

所以，你可以寫你的foreach循環如下：

foreach (@states) { 
    $_ = "'$_'"; 
} 

注意$_必須分配，循環否則身體有沒有影響（這你的q($_);代碼就是這種情況）。

完整的示例：

use strict; 
use warnings; 

my @states = qw(NY NJ MI NJ); 

foreach (@states) { 
    $_ = "'$_'"; 
} 

print(join(', ', @states)); 

---

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

Answer 2

取態，它們映射到引用的字符串，用逗號連接：

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