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

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

解释:

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

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

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

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

上面的Python回答很有趣，但自己的语言甚至可以使输出更好:

python -c "import sys;打印(sys.stdin.read () .splitlines())”

一般不建议解析ls，所以另一种更好的方法是使用find，例如:

find . -type f -print0 | tr '\0' ','

或者使用find和粘贴:

find . -type f | paste -d, -s

对于一般的多行连接(与文件系统无关)，请检查:Unix命令行上简明而可移植的“join”。

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

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

解释:

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

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

解释:

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

摘自我的博客。