ファイル内の別の行のために先頭に異なるプレフィックスを追加する方法

Question

私のファイルがある次の行：

hello 
hi 
hey 

私は、最初の行の先頭に文字Bを手紙Aを印刷するためにPerlを使用したいです2行目、3行目の文字はCなどとなります。

私の予想される出力は次のとおりです。

A hello 
B hi 
C hey 

など..

私は次のことを試してみました：

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

これはおそらく、すべての最初に '' のみ挿入されますファイル内の行。これは私の要求を満たしていません。

異なる行に異なる接頭辞をどのように扱うかわかりません。

Answer 1

インクリメントも、文字列のために働く：

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

（AAがZを次の何である場合）。

あるいは、[はZを以下の場合は、あなたが$.変数（入力行番号）を使用することができます：

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