読者です 読者をやめる 読者になる 読者になる

perlワンライナで通し番号振り直し

文書作成中に行頭に番号振ってるとき、たとえばこんなやつ。

(1)はじめに・・・
(2)そして・・・
(3)最後に・・・

(1)と(2)の間にもう1つ項目を入れたくなったとき、それ以降の番号を全部ずらすのってめんどくさいですよね。(そもそも手動で振ってるのが悪いんだろうけど)

(1)はじめに・・・
(2)次に・・・
(2)そして・・・
(3)最後に・・・

こういうとき、手近にlinuxとかあったら

$ perl -pe 's/\d+/++$i/e' <<END
(さっきのテキストを貼付け)
END

ってやると

(1)はじめに・・・
(2)次に・・・
(3)そして・・・
(4)最後に・・・

となって出てきます。