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

Question

我的文件有以下几行:

hello
hi
hey

我想使用Perl A在第一行的开头打印字母,B第二行的字母C,第三行的字母等等.

我的预期输出是:

A hello
B hi
C hey

等等..

我尝试了以下方法:

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

这可能只会在文件的每一行的开头插入"A".这不符合我的要求.

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

Answer 1

增量也适用于字符串:

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

(如果AA是以下内容Z).

或者,如果[遵循Z,您可以使用$.变量(输入行号):

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