Question

我想从Mac上的命令行执行此操作。所以，我想Perl可能是它的选择，但我不知道该怎么做：

我有一个包含100,000个名字的文件每行一个名字

我想更改它，并在一行中用逗号分隔50个名字然后下一行用接下来的50个名字用逗号等分隔。

Answer 1

您可以使用以下单行：

perl -pe 's/\n/,/ if $. % 50' < file > output

如果当前输入行号（\n）不能被整除（$.）50，它会用逗号替换换行符（%）。