行頭に連番を振る

increment_beginning_of_line.pl

my @array = <DATA>;
my $n = 1;
for my $line (@array) {
    print "$n: $line";
    $n++;
}
__DATA__
apple
orange
lemon
grape

:put=range(1,5) とVimのコマンドラインで実行すると、

1
2
3
4
5

という5行が挿入されます。それらを矩形選択でコピーしておいて、

This is a pen
this is a pen
this is a pen
this is a pen
this is a pen

↑の1行目、大文字Tのところにカーソルをあてた状態で P で貼り付けると、

1This is a pen
2this is a pen
3this is a pen
4this is a pen
5this is a pen

という具合で、冒頭に連番が振れました。矩形選択コピーしたものを P で行頭に貼り付け、ちょいちょい使ってます。