続・再帰?は難しい - 教えてもらったコードを書いて動かす - @kyanny's blog
再帰?は難しい - 刺身☆ブーメランのはてなダイアリー で関数の再帰呼び出しが難しいとこぼしていたら id:amachang さんが 再帰で local を使う - IT戦記 というエントリで教えてくれました。ありがとうございます。 読んでもやっぱり頭の中で追えなかったので、コピペして動かしてみたらなんとなくわかったような気がしてきました(わかった、といえるほど自信はない。。) 「再帰の中で最初の一回だけ [] が作られる local なので、再帰を抜けると消える」の一文がわからなくて、 print してみたら、同じ配列リファレンスのようなので「最初の一回だけ」という意味がわかった。 sub hash_recursively { # 省略 # 再帰の中で最初の一回だけ [] が作られる # local なので、再帰を抜けると消える print "a ", $main::_links, "\
「foreach の $_ は local」、「while の $_ は global」な件について - BigFatCatのブログ
追記（2007年12月28日（金）） 以下の内容には恐らく筆者の勘違いが含まれていると思うので、あんまり鵜呑みにしないでください。あと、ネタ元の id:fbisさんからコメントを頂いたのでそちらも参照してください。整理がついたら内容を随時訂正していく予定です（整理つかないかもしれないけど…）。 追記（2007年12月30日（日）） id:kitsさんがブクマで教えてくれたリンク先「perlsyn - perldoc.perl.org」の foreach の説明がわかり易いかも。要は、LIST 中の要素で一つでも左辺値でなければ、制御変数「$_」の変更は失敗するということらしい。あと、自分が激しく勘違いしてたとこだけど、制御変数「$_」は常に LIST 中の各要素のエイリアスになるみたいです。 whileでファイルハンドルをループする時の暗黙の$_について - Unknown::Progra
File::Find - ProsBloom
id:fbisさんにアドバイスもらったので調べてみる。File::Find::Ruleっていうのは標準モジュールじゃないらしく手元のクイックリファレンスに載っていない。とりあえず後回しにしてFile::Findを試してみる。ActivePerlのリファレンスを読んでもよくわからん。クイックリファレンスでもわからないから英語だからって話じゃない。Findっていうくらいなので条件にあうファイルを集めてくるような動作をイメージしていた。んでグーグル先生の御神託でひねり出したのがこんなコード。 # sample of File::Find use strict; use File::Find; our @wantedFiles; find(\&wanted, $ARGV[0]); for (@wantedFiles) { print "Delete $_\n" if /~$/; } sub wan
Data::Page::Navigation - 高知ではたらくひとのブログ
d:id:iox:20070618:1182158941の記事にid:fbisさんからブックマークでData::Page::Navigationを使うとさらに便利と教えてもらいましたので、早速少し使ってみました。 このモジュールは、Data::Pageモジュールにメソッドを加えたモジュールのようで、pages_per_navigation()をコールすることによってナビゲーションに表示する項目に制限をかけることができるようです。 使い方はこんな感じ。 CGI側： my $pager = Data::Page->new(100, # トータルのエントリ数 10, # ページ毎に表示するエントリ数 1, # 表示するページ ); $pager->pages_per_navigation(3); # ナビゲーションに表示する項目を3つまでに制限 View側(Tempalte Toolkit):
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
FillInForm - メモっぽい日記
