如何加入多行文件名到一个自定义分隔符

如何将ls -1的结果加入到一行中，并用我想要的任何内容将其分隔?

当前回答

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

ls -1 | paste -sd "," -

其他回答

这个命令是为PERL爱好者准备的:

ls -1 | perl -l40pe0

这里的40是空格的八进制ascii码。

-p将逐行处理并打印

-l将负责用我们提供的ASCII字符替换尾随的\n。

-e是通知PERL我们正在执行命令行。

0表示实际上没有命令要执行。

Perl -e0与Perl -e ' '相同

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

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

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

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

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

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

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的建议。

你可以使用:

ls -1 | perl -pe 's/\n$/some_delimiter/'

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

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

解释:

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

推荐文章