Ls在连接到管道时产生一列输出，因此-1是多余的。

下面是另一个使用内置join函数的perl答案，它不留下尾随分隔符:

ls | perl -F'\n' -0777 -anE 'say join ",", @F'

晦涩的-0777使perl在运行程序之前读取所有输入。

不留下尾随分隔符的Sed替代方法

ls | sed '$!s/$/,/' | tr -d '\n'

类似于第一个选项，但省略了后面的分隔符

ls -1 | paste -sd "," -

我觉得这个很棒

ls -1 | awk 'ORS=","'

ORS是“输出记录分隔符”，所以现在你的行将用逗号连接。

快速Perl版本与尾随斜杠处理:

ls -1 | perl -E 'say join ", ", map {chomp; $_} <>'

解释:

perl -E:执行perl的特性支持(例如，…) 说:打印与载体返回 join "， "， ARRAY_HERE:用"，"加入数组 地图{切齿;$_} ROWS:从每一行中删除载体返回并返回结果 <>: stdin，每一行都是一个ROW，与映射耦合将创建每个ROW的数组

sed方法，

sed -e ':a; N; $!ba; s/\n/,/g'
  # :a         # label called 'a'
  # N          # append next line into Pattern Space (see info sed)
  # $!ba       # if it's the last line ($) do not (!) jump to (b) label :a (a) - break loop
  # s/\n/,/g   # any substitution you want

注意:

这在复杂度上是线性的，在所有行都附加到sed的模式空间之后只替换一次。

@AnandRajaseka的答案，和其他一些类似的答案，比如这里，是O(n²)，因为sed必须做替换每次新行追加到模式空间。

来比较,

seq 1 100000 | sed ':a; N; $!ba; s/\n/,/g' | head -c 80
  # linear, in less than 0.1s
seq 1 100000 | sed ':a; /$/N; s/\n/,/; ta' | head -c 80
  # quadratic, hung

用换行符替换最后一个逗号:

ls -1 | tr '\n' ',' | sed 's/,$/\n/'

Ls -m包含屏幕宽度字符处的换行符(例如第80行)。

主要是Bash(只有ls是外部的):

saveIFS=$IFS; IFS=$'\n'
files=($(ls -1))
IFS=,
list=${files[*]}
IFS=$saveIFS

在Bash 4中使用readarray(又名mapfile):

readarray -t files < <(ls -1)
saveIFS=$IFS
IFS=,
list=${files[*]}
IFS=$saveIFS

感谢gniourf_gniourf的建议。