Perl - 將行改爲逗號分隔的變量

-4

我想從Mac上的命令行執行此操作。所以，我想是Perl可能是它的選擇，但我不知道如何做到這一點：Perl - 將行改爲逗號分隔的變量

我有一個文件有100,000個域名每行一個名稱

我想改變它，並已經在一行50名由逗號然後用逗號隔開未來50個名字，等下一行分開..

您必須嘗試一些操作。您無法發佈「規範」並期望代碼恢復。 – chrsblck

您可以使用下面的一行代碼：

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

它取代了換行符（\n ）機智如果當前輸入的行號（$.）不能被整除（%），則爲逗號。

2013-04-02 15:24:14 choroba

但如何寫它另一個文件？ – user1070318

我試試這個：perl -pe's/\ n /，/ if $。％50'old.txt> new.txt 但是它將所有名稱寫在一行中，而不是每行50行 – user1070318

@ user1070318：請參閱更新。 – choroba

回答