如何在文件的不同行的开头添加不同的前缀

Question

我的文件有以下几行：

hello
hi
hey

我想使用Perl在第一行的开头打印字母A，第二行打字B，第三行打字C，依此类推。< / p>

我的预期输出是：

A hello
B hi
C hey

依旧......

我尝试了以下内容：

perl -pe 's/^/A/' input.file

这可能只会插入＆＃39; A＆＃39;在文件中每一行的开头。这不符合我的要求。

我不知道如何处理不同行的不同前缀。

Answer 1

增量也适用于字符串：

perl -pe 'BEGIN { $ch = "A" } print $ch++, " "' < input_file

（如果AA之后是Z）。

或者，如果[跟在Z之后，您可以使用$.变量（输入行号）：

perl -pe 'print chr 64 + $., " "' < input_file