呼び出し元のコンテキストで eval する方法 - kazuhoのメモ置き場
String::TT なんかがそうですけど、呼び出し元の変数を使いたい、ということがときどきあります。たとえば、 sub hello_to_alice { my $user = "Alice"; say_hello(); # "Hello to Alice!" と言ってほしい } って書きたいとか、そういうケースですね。結論から言うと、以下のように say_hello 関数を定義すれば可能です。こんな感じ。 sub say_hello { @_ = ('print "Hello to $user!\n"', undef); goto &DB::eval_in_parent_and_return; } package DB; sub DB::eval_in_parent_and_return { my ($expr, $retvar) = @_; eval("package " . (cal
PerlでRecallの話 - Unknown::Programming
Perl Coreだけで同様のことを実装できないかと考えたらあっさり出来たので。 Perl で JS の arguments.callee 的なことしようと思ってハマった - IT戦記 http://d.hatena.ne.jp/tokuhirom/20080501/1209625789 sub recallable_sub(&) { use B::Deparse; my $coderef = shift; my $src = B::Deparse->new->coderef2text($coderef); $src =~ s{\bRecall\s*\(}{\$coderef->\(}g; $coderef = eval qq"sub $src"; die $@ if $@; $coderef; } 404 Blog Not Found:perl - で(Recall()|argument
はじめての coderepos で arguments::callee 初体験 - 竹迫の近況報告
Devel::Caller が便利すぎる件について - IT戦記 Devel::Caller と PadWalker モジュールをわざわざインストールするのは面倒という方に arguments.xs を作りました。 以下のコマンドでarguments.xsをインストールできます。coderepos++ svn co http://svn.coderepos.org/share/lang/perl/arguments cd arguments cd trunk perl Makefile.PL make make test make install 使い方はこんな感じで JavaScript っぽい arguments.callee を使った再帰呼出が Perl でも綺麗に書けるようになります。 NAME arguments.xs - Perl extension for arguments
最速インターフェース研究会 :: Function.prototypeを拡張して遅延実行を実現する
JavaScriptにおいて関数というのはFunctionオブジェクトで、他のビルトインオブジェクトと同様に、組み込みのメソッドがある。これがapplyとcallしかないのだけれど、こんな感じに使う。 func.apply(thisObj,arguments) func.call(thisObj,arg1,arg2,arg3) thisObjには、その関数内で「this」として使うオブジェクトを指定する。applyの第二引数はargumentsオブジェクトを指定する。配列か、現在実行中の関数のargumentsオブジェクトを丸ごと別の関数に引き渡せる。つまり引数の長さが良くわかってなくても使える。 callは代わりに func.apply(thisObj,[arg1,arg2,arg3]) と書けるので、実はいらないんじゃないかと思う。 これらは多分、ふつうにJavaScriptを書く上で
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://ja.doukaku.org/28/lang/emacslisp/
