perl初心者です。

質問

perl初心者です。

正規表現で記載された下記のような文字列を以下のように書き換えたいのです。

server0[123]
client[1-3][0-9]

↓↓

server01,server02,server03
client10,client11........client38,client39

よろしくお願いします

回答No.2

kumoz

まずは、それぞれの正規表現文字列を展開するプログラムを考えてはどうでしょうか。
次のプログラムで、server0[123] を展開できると思います。先頭の固定文字列を変数に、
文字クラスの各文字を配列に入れて、foreach ループでつなぎ合わせているだけです。

use strict;
my $reg_str = 'server0[123]';
my $head = substr $reg_str, 0, index($reg_str, '[');
my ($num) = $reg_str =~ /\[(\d+)\]/; # my ($num1, $num2) = $reg_str =~ /\[([\d-]+)\]/g;
my @num = split //, $num; # my @num1 = substr($num1, 0, 1) .. substr($num1, -1); (@num2 も同様)
my @result;

foreach my $i (@num) {
push @result, "$head$i";
}

print join(',', @result), "\n";

少々複雑になりますが、client[1-3][0-9] も同じような方法で展開できます。上のコードで、
コメントとして記してあるのが client[1-3][0-9] 用の文です。foreach を２段重ねにすれば
展開できると思います。

補足

早速のご回答ありがとうございました。

client0[1-35-7]
client0[13-69]

のパターンの場合がうまくいきません。

また、client部分は随時名称が変わります。

お礼が遅くなってスイマセン。
OKWEBも初心者なもので。。。

お時間がございましたらよろしくお願いします。