非破壊な s/// のススメ

正規表現の置換でときどき困るのは、元の文字列が変更されてしまうことです。そのため、たとえば文字列を URI escape する際には、以下のように別変数にコピーした上で、正規表現を適用することになります。 my $escaped = $search_str; $escaped =~ s/([^0-9A-Za-z_.!~*'()-])/'%' . uc(unpack('H2', $1))/eg; my $url = "http://example.com/search?q=$escaped"; 以前、この点がめんどくさいなーとブログに書いたところ、kazeburo さん他に以下のようなテクニックを教えていただきました。 use List::MoreUtils qw(apply); my $url = 'http://example.com/search?q=' . apply { s/([^

[tokuhirom]

s///r つかった方法を追記しておいたほうがいいね。

[tzccinct]

List::MoreUtils::apply(), s///r

[riywo]

なるほど。

[soyana]

List::MoreUtils の apply で、正規表現の置換で元の文字列が変更されてしまわないようにする方法

[fuba]

List::MoreUtils::apply

[lesamoureuses]

コピーするときに変数に入れない

[secondlife]

ほー

[kits]

applyはmapに似てるが非破壊。/ 主旨とは違うけどURIモジュールを使いたいような。

[amachang]

がんばりまうすー

[ZIGOROu]

ラボメンバーで advent calendar を占拠します＾＾