Kazuho@Cybozu Labs

« 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"

とするだけで「Goodbye, World」が表示されるように。でもとっても再発明 (あるいは遠回り) のにおいがします。どうすれば、より better なんでしょうか。

投稿者 kazuho : 2007年07月18日 17:30