我想创建一个包含文本的每一行

Question

我有几行文字如下之间递增的数字换行：

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上运行它。谁能帮忙？

Answer 1

您可以使用命令行的perl，

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

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

Answer 2

像这样的东西应该这样做：

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