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

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