blocks|key|497794|text|print+join(',',+@list),+"\n";|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|497795|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>print join(',', @list), "\n";
</code></pre>

blocks|key|499315|text|join(',',+@list);|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|499316|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

blocks|key|497800|text|使用逗号加入列表。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|497801|@list=(1,2,3);
$output+=+join(",",@list);|code-block|syntax|javascript|497802|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Join the list with a comma. 

<pre><code>@list=(1,2,3);
$output = join(",",@list);
</code></pre>

blocks|key|3368336|text|您有几个选项。最常见的是使用join函数将它们连接起来：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|3368337|print+join(',',+@list),+"\n";|code-block|syntax|javascript|3368338|另一种方法是修改special+variables，这会影响print语句。例如，上面的效果可以通过以下方式来实现|3368339|$,+=+",";
$\+=+"\n";
print+@list;|3368340|如果列表经过双引号扩展，您也可以自动加入列表：|3368341|$"+=+",";
print+"@list","\n";|3368342|请注意，如果您修改特殊变量，如$,、$\或$"，则需要全局设置它们。要避免这种情况，请使用local关键字并将操作数包含在块中。|3368343|entityMap|0|LINK|mutability|MUTABLE|url|http://perldoc.perl.org/perlvar.html|1|http://perldoc.perl.org/perlsub.html#Temporary-Values-via-local%2528%2529^0|E|4|0|0|U|5|8|H|0|0|0|0|0|F|2|I|2|L|2|19|5|19|5|1|0^^$0|@$1|2|3|4|5|6|7|14|8|@$9|15|A|16|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|17|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|18|8|@$9|19|A|1A|B|C]]|D|@$9|1B|A|1C|1|1D]]|E|$]]|$1|M|3|N|5|H|7|1E|8|@]|D|@]|E|$I|J]]|$1|O|3|P|5|6|7|1F|8|@]|D|@]|E|$]]|$1|Q|3|R|5|H|7|1G|8|@]|D|@]|E|$I|J]]|$1|S|3|T|5|6|7|1H|8|@$9|1I|A|1J|B|C]|$9|1K|A|1L|B|C]|$9|1M|A|1N|B|C]|$9|1O|A|1P|B|C]]|D|@$9|1Q|A|1R|1|1S]]|E|$]]|$1|U|3|-4|5|6|7|1T|8|@]|D|@]|E|$]]]|V|$W|$5|X|Y|Z|E|$10|11]]|12|$5|X|Y|Z|E|$10|13]]]]

You have several options. The most generic is to join them with <code>join</code> function:

<pre><code>print join(',', @list), "\n";
</code></pre>

The other way is to modify <a href="http://perldoc.perl.org/perlvar.html" rel="noreferrer">special variables</a>, which affect <code>print</code> statement. For example, the effect of the above one may be achieved with

<pre><code>$, = ",";
$\ = "\n";
print @list;
</code></pre>

You can also automatically join list if it undergoes double-quoted expansion:

<pre><code>$" = ",";
print "@list","\n";
</code></pre>

Note that if you modify special variables like <code>$,</code>, <code>$\</code> or <code>$"</code>, you set them globally. To avoid it, use <a href="http://perldoc.perl.org/perlsub.html#Temporary-Values-via-local%28%29" rel="noreferrer"><code>local</code></a> keyword and enclose the operands in a block.

blocks|key|1246088|text|对于简单的情况，join是完美的选择。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1246089|但是，如果您想生成或解析CSV文件，最好使用Text::CSV。它将为您处理引号和转义逗号以及其他各种有害的问题。它也是非常快的。|1246090|entityMap|0|LINK|mutability|MUTABLE|url|http://search.cpan.org/perldoc?Text::CSV^0|8|4|0|M|9|0|0^^$0|@$1|2|3|4|5|6|7|P|8|@$9|Q|A|R|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|S|8|@]|D|@$9|T|A|U|1|V]]|E|$]]|$1|H|3|-4|5|6|7|W|8|@]|D|@]|E|$]]]|I|$J|$5|K|L|M|E|$N|O]]]]

For simple cases, <code>join</code> is perfect.

But if you want to produce or parse CSV files, you are better off to use <a href="http://search.cpan.org/perldoc?Text::CSV" rel="noreferrer">Text::CSV</a>. It will handle quoting and escaping commas and all sorts of other noxious issues for you. It is also very fast.

Let's say I have a list of elements

<pre><code>@list=(1,2,3);
#desired output
1,2,3
</code></pre>

and I want to print them as comma separated values. Most importantly, I do not want the last element to have a comma after it.

What is the cleanest way to do this in Perl?

How can I output a list as comma-separated values in Perl?

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

假设我有一个元素列表@list=(1,2,3);#desired output1,2,3我想把它们打印成逗号分隔值。最重要的是，我不希望最后一个元素后面有逗号。在Perl中做这件事最干净的方法是什么？

问如何在Perl中将列表输出为逗号分隔值？
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何在Perl中将列表输出为逗号分隔值？EN