perl - Perl - 将行更改为逗号分隔的变量

Question

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

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

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

Answer 1

您可以使用以下单线：

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

\n如果当前输入的行号 ( ) 不能被50$.整除 ( )，它将用逗号替换换行符 ( )。%