我想創建一個包含文本的每一行

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