Kazuho@Cybozu Labs: Perl の正規表現が破壊的でイヤだなと思った件

« Japanize インストール済の Safari で apple.com/downloads にアクセスすると落ちる件 | メイン | swifty - 高速な共有メモリキャッシュ » 2007年07月18日 Perl の正規表現が破壊的でイヤだなと思った件 いちいち変数定義して、 my $s = "Hello, World\n"; $s =~ s/Hello/Goodbye/; print $s; とか書くのにあきてきたので、 sub ndes (&@) { my $code = shift; my @a = map { local $_ = $_; $code->(); $_; } @_; wantarray ? @a : $a[0]; } と、まとめてみました。これで、 print ndes { s/Hello/Goodbye/ } "Hello, World\n" とするだけで

[kkobayashi]

いちいちコピーする処理はめんどいな、と思う。List::MoreUtilsのapplyを使えばいいのか。／Rは非破壊関数しかないからなあ。それはそれで、どうかと思うときはある。

[IMAKADO]

破壊的 抽象化

[fbis]

List::MoreUtils::apply()

[kazuhooku]

↓autoboxingできるんですね。勉強になります。ありがとうございます＞id:miyagawa

[bull2]

そうか、&でsubroutineを渡せるのね

[ockeghem]

言いたいことは分かるけど例がイマイチ>「my $s = "Hello, World\n";$s =~ s/Hello/Goodbye/;print $s;」

[fn7]

こんな書き方できたんだー

[kdaiba]

こういう方法もあったのか

[TAKESAKO]

御意。他の言語で非破壊的な正規表現置換ってスマートに記述できるのだろうか。