☰

Notepad++ で行の先頭から数行目にプレフィックスを追加するにはどうすればよいでしょうか?

tag-icon • tag-icon notepad++ regex perl
Notepad++ で行の先頭から数行目にプレフィックスを追加するにはどうすればよいでしょうか?

ある行を、さらにいくつかの行のプレフィックスとして使用したいと思います。例として、次の行がある状況を考えてみましょう。

hostname-junek-1
;ge-1/0/1
;ge-1/0/2
;ge-1/0/5
;ge-1/1/27
;ge-1/1/39
hostname-junek-2
;ge-1/0/5
;ge-2/0/27
;ge-2/0/39
hostname-junek-3
;ge-1/1/1
;ge-2/1/13
;ge-2/1/17
;ge-2/1/11

次のようなものを受け取りたいです:

hostname-junek-1;ge-1/0/1
hostname-junek-1;ge-1/0/2
hostname-junek-1;ge-1/0/5
hostname-junek-1;ge-1/1/27
hostname-junek-1;ge-1/1/39
hostname-junek-2;ge-1/0/5
hostname-junek-2;ge-2/0/27
hostname-junek-2;ge-2/0/39
hostname-junek-3;ge-1/1/1
hostname-junek-3;ge-2/1/13
hostname-junek-3;ge-2/1/17
hostname-junek-3;ge-2/1/11

これをどうやって行うのでしょうか? Notepad++ か他のものを使用します。

答え1

残念ながら、これは Notepad++ では実行できません。

以下は Perl ワンライナーを使用したソリューションです。

cat inputfile 
hostname-junek-1
;ge-1/0/1
;ge-1/0/2
;ge-1/0/5
;ge-1/1/27
;ge-1/1/39
hostname-junek-2
;ge-1/0/5
;ge-2/0/27
;ge-2/0/39
hostname-junek-3
;ge-1/1/1
;ge-2/1/13
;ge-2/1/17
;ge-2/1/11

perl -ane 'if(/^(hostname-junek-\d+)\R/) {$host=$1;next}print "$host$_"' inputfile > outputfile 

cat outputfile
hostname-junek-1;ge-1/0/1
hostname-junek-1;ge-1/0/2
hostname-junek-1;ge-1/0/5
hostname-junek-1;ge-1/1/27
hostname-junek-1;ge-1/1/39
hostname-junek-2;ge-1/0/5
hostname-junek-2;ge-2/0/27
hostname-junek-2;ge-2/0/39
hostname-junek-3;ge-1/1/1
hostname-junek-3;ge-2/1/13
hostname-junek-3;ge-2/1/17
hostname-junek-3;ge-2/1/11

説明：

/                           # regex delimiter
  ^                         # beginning of line
    (hostname-junek-\d+)    # group 1, hostname...followed by 1 or more digits
    \R                      # any kind of linebreak
/                           # regex delimiter

if the regex matches the current line, {
    $host=$1;               # save the hostname
    next                    # skip to next line
}                           # endif
print "$host$_"             # print the content of $host followed by the current line

関連情報