Kazuho@Cybozu Labs: 2007年07月アーカイブ

2007年07月30日

　先週、社内プレゼンの資料作成からの逃避がてら、高速な共有メモリキャッシュを作ってみました。よろしければごらんください。

　いちいち変数定義して、

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 なんでしょうか。