你可以使用chomp将多行合并成一行:

Perl -e 'while (<>) {if (/\$/) {chomp;}' bad0 >test

在if语句中加入换行条件。它可以是特殊字符或任何分隔符。

Ls有选项-m，用“，”一个逗号和一个空格分隔输出。

ls -m | tr -d ' ' | tr ',' ';'

将此结果输送到tr以删除空格或逗号，这将允许您再次将结果输送到tr以替换分隔符。

在我的例子中，我用分隔符替换分隔符;

取代;使用您喜欢的任意一个字符分隔符，因为tr仅用于作为参数传入的字符串中的第一个字符。

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

sed -e :a -e '/$/N; s/\n/\\n/; ta' [filename]

解释:

-e -表示要执行的命令 :a -为标签 /$/N -定义当前和(N)下一行的匹配范围 s / \ n / \ \ n /;-将所有EOL替换为\n 助教;-如果匹配成功，则标记a

摘自我的博客。

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

ls -1 | paste -sd "," -

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

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

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

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

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

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