Perlコーディング初心者質問スレ Part 59

Perlコーディング初心 ..

133:nobodyさん
09/03/02 22:03:42 bC9LrltQ BE:781119656-2BP(1028)
my $input ="//commentA \n　　var1 = 3 ; //commentB \n　　varx = 8 ;";
my $src_regex = qr/((\n\s+)var1\s=[^;]+;.*)\n/;
my $dest = "\$1\$2varp = 5;\n";

$input =~ s/$src_regex/$dest/sg;

$1,$2を変数の中に入れると置換されないのは　仕様？

次ページ

続きを表示

1を表示