我想在每行文本之间创建一个包含递增数字的换行符

Question

我的文字行如下：

The cat and the mouse
Were in the house
They spotted some grouse

我希望在＆＃34;＆gt;＆＃34;之后在每行文本之间添加一个新行和一个递增的数字。所以它看起来像这样

>1
The cat and the mouse
>2
Were in the house
>3
They spotted some grouse

如果可能，我想在perl中执行此操作，我可以在mac上运行它。有人可以帮忙吗？

Answer 1

这样的事情应该这样做：

perl -pe 'print ">$.\n"' foo.txt

Answer 2

您可以从命令行使用perl，

perl -pe 's|^|>$.$/|' file

$.是当前行号，$/是输入记录分隔符（通常是换行符\n）