如何在Perl中將列表輸出爲逗號分隔值？

Question

比方說，我有元素

@list=(1,2,3); 
#desired output 
1,2,3 

的名單，我想他們打印爲逗號分隔值。最重要的是，我不希望最後一個元素後面有一個逗號。

在Perl中這樣做的最簡潔的方法是什麼？

Answer 1

print join(',', @list), "\n"; 

Answer 2

join(',', @list); 

Answer 3

加入用逗號分隔的列表。

@list=(1,2,3); 
$output = join(",",@list); 

Answer 4

您有幾種選擇。最通用的是join功能加入他們的行列：

print join(',', @list), "\n"; 

另一種方法是修改special variables，影響print聲明。例如，上述一個的效果可能與

$, = ","; 
$\ = "\n"; 
print @list; 

來實現，還可以自動如果它經歷了雙引號擴展加入列表：

$" = ","; 
print "@list","\n"; 

請注意，如果您修改特殊變量，如$, ，$\或$"，您將它們設置爲全局。爲避免它，請使用local關鍵字並將操作數放在一個塊中。

Answer 5

對於簡單的情況，join是完美的。

但是，如果你想產生或解析CSV文件，你最好使用Text::CSV。它將處理引用和轉義逗號以及各種其他有害問題。它也非常快。