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

我有以下几行文字：

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

我想在每行文本之间加一个新行，在“>”后面加一个递增的数字，这样看起来像这样

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

---

如果可能的话，我想用perl来做这件事，因为我可以在mac上运行它。有人能帮忙吗？

您可以从命令行使用perl

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

---

$。

是当前行号，

$/

是输入记录分隔符（通常是换行符

\n

）

类似的操作可以：

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

---

令人惊叹的。然后，我如何将结果保存到txt文件中，而不是在终端上打印出来？@user3632206您可以通过添加

>file2

或就地编辑

perl-I-pe..

将输出重定向到文件，实际上我正试图按照我希望的方式对其进行升级，但是现在我被锁了几个小时，它告诉我我的投票已经被锁上了，我不能改变它，除非我编辑它。我可以发誓我对答案投了更高的票，因为它真的很有用。我想我明天试试