Catalystでログ的なウィンドウを出力したい訳です。エラーであるとか処理が完了したとか。 sub moge : Local { my($self,$c) = @_; if ($some_condition) { $c->stash->{info} = 'Some error happen!'; $c->stash->{template} = 'info.html'; return } } みたいな感じだと思うんです。stashにrenderするべきtemplateと値を入れてreturn。 何個もこれをやりたいとなるとこれをMyApp.pmとかに書いたりするわけです。 たとえばこれをrender_infoって名前でメソッドにして、普通に$c->render_infoって呼ぶと戻ってくる訳です。当たり前ですが。 sub MyApp::render_info { shift()->deta

｢初めてのPerl」の内容はかなりわかってきたという自負がやっと持てるようになったので、そろそろこのブログのサブタイトル、「初めてのPerl勉強中」を取り下げようと思います。 サブタイトルごときですが、いざ外すとなると寂しいものですね。きっと「初めてのPerl」を勉強することで得られたことが、本当にたくさんあったからだと思います。 ・目指す職種：SE→Web系エンジニアへの方向転換だとか、 ・たくさんのエンジニアの皆さんとのささいな交流だとか、 ・プログラミングの楽しさを知ったことだとか、 ・Web系の会社に就職が決まったことだとか。 そういや2005年の10月下旬からPerlを勉強し始めたんだった。 10月中旬に情報処理技術者試験が終わって、これが終わったらPerlを勉強しようって決めたんだった。で、思い切ってBlogで勉強の成果を出そうと思ってたのか。懐かしい。 そうそう、で、11月の

ResultSetにメソッドを生やしたい訳です。ResultSourceのメソッドにresolve_prefetchっていうのがあって、prefetchとかjoinで指定するrelationのリファレンスを渡すとcolumnを返してくれるものがあります、{ blogs => 'user_id' }みたいなやつです。ただしそのままではlookupに使えないのと自分が無いのでちょっとWrapしたい訳です。 巷ではResultSetManager使うらしいんですが、Loader使ってるので使えません。で、自分のResultSetを作って my $source = $schema->resultset('Moge')->result_source; $source->resultset_class('MyApp::ResultSet'); みたいな感じでresultset_classを指定して自分

という内容で、Coolin Moock さんを囲むの会で as3gettext の発表してきました。アウェイな発表が出来て良かったです(ぇー)。コリンさんは日本語もうまく(ギザとかテラとか使えるレベル)、ジョークを交えながらトークしてくれて面白かったです。まだ普段あまり会えなかった ASer の方々と懇談会などでお話しできて楽しかったです。ありがとうございました。 AS3 アプリケーションの国際化 と時間があったらその他… 自己紹介 舘野祐一 id:secondlife はてなエンジニア ActionScript3 JavaScript Ruby Shibuya.js 開いてます ActionScript と自分 AS 歴 AS3 から Flash に入って約一年 開発環境 Flex2/Flex3 SDK + rascut + vim ActionScript と仕事 JS/AS のブリッ

はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28

半分冗談で作った、Django風PHPテンプレートエンジンMuMu。 社内でユーザがついたので、ちょっと手を入れてキャッシュをつけてみた。 パースしたテンプレートをシリアライズして保存するだけだけどね。 テンプレートあてはめ後のキャッシュが欲しいところ。 ドキュメントも一応書いてみた。 http://qwik.jp/mumu/ あとは、newformsをパクって参考にしてフォームバリデーションを作るかね。 MTVのMV部分は作る気はさらさらないけど… [追記]EthnaのrendererをMuMuにする方法が公開されていました。 2007-09-18 - WebProgを極めて居酒屋を開発する 地味にはやらせていこう。

はてなグループの終了日を2020年1月31日(金)に決定しました 以下のエントリの通り、今年末を目処にはてなグループを終了予定である旨をお知らせしておりました。 2019年末を目処に、はてなグループの提供を終了する予定です - はてなグループ日記 このたび、正式に終了日を決定いたしましたので、以下の通りご確認ください。 終了日: 2020年1月31日(金) エクスポート希望申請期限:2020年1月31日(金) 終了日以降は、はてなグループの閲覧および投稿は行えません。日記のエクスポートが必要な方は以下の記事にしたがって手続きをしてください。 はてなグループに投稿された日記データのエクスポートについて - はてなグループ日記 ご利用のみなさまにはご迷惑をおかけいたしますが、どうぞよろしくお願いいたします。 2020-06-25 追記 はてなグループ日記のエクスポートデータは2020年2月28

横山たかしに劇似ｗｗ 横山たかし(左)

2chの入っているiDCがコアルータを交換したとかで、懐しい名前を見掛けたのでふと思い出したことを書いてみる。 ネットワークの世界ではLayer 3で中継する装置を一般的にルータと呼ぶのだけど、同じ機能を果すものでLayer 3 Switch(以下、L3SW)というのもある。ルータは機器の機能で、L3SWはその実装方法だろうというのが多分正解なんだけど、それにしてもルータとL3SWというが別の機器であると扱うことが多いように思う。しかもなんとなくSWの方が格下みたいな扱い。 何をもってL3SWと言うのかには、半ば冗談だが諸説ある。 パケットをハードウェアで処理するのがL3SW かなり昔の定義。 ルータもエッジの小型ルータを除いて少し前からハードウェア処理が中心になっている。今はCPUが速くなってきて逆に簡単になったが、以前は100Mbpsをワイヤーレートで処理できるのはハードウェア処理をし

http://d.hatena.ne.jp/tokuhirom/20070904/1188877834 今ごろ知ったんだけど、、、 $d->is_wrap_mode $d->is_limit_mode $d->is_preserve_mode 結局月末ちゃんとやりたいときは $dt->is_limit_mode か $dt->is_preserve_mode でやればいいって事だろうか 違いがよくわからんけど・・ Catalyst::Plugin::Datetime my $dt = $c->datetime( time_zone => 'Asia/Tokyo', year => 2008, month => 5, day => 31, ); $dt->add( months => 1, end_of_month => 'preserve'); Danさんのブログにはtime_zoneはl

ドキュメントに書いてないんですが、 action1: param1: - self_rule: HOGE message: 'param1 is invalid HOGE' と書いて、コードで、 if (not some_check()) { $c->form->set_invalid('param1', 'HOGE'); } とやると、$c->form_messages('param1') で、定義したメッセージが取れるということなんですね。 これは、便利ですね。

(defun perllib-check-path (lst lib-path) (let ((dir (car lst)) (lst (cdr lst))) (setf lib-path (concat lib-path "/" dir)) (if lst (if (string= dir "lib") lib-path (perllib-check-path lst lib-path))))) (defun set-perl5lib () "insert path to PERL5LIB if its path includes 'lib' directory." (interactive) (setf path-list (cdr (split-string buffer-file-name "/")) lib-path (perllib-check-path path-list "

CPANモジュールをすべて最新にしようと、なぜか思い $ perl -MCPAN -e 'upgrade' したのはいいけど、アップグレードが終わったら catalyst.pl を実行すると変なエラーが出るようになった。。。 $ catalyst.pl Hoge /usr/bin/perl: symbol lookup error: /home/my/perl/modules/i386-linux-thread-multi/auto/Cwd/Cwd.so: undefined symbol: strlcpy 海外のメーリングリストの過去ログを見ると*1 どーやら PathTools の問題らしい？ この問題は PathTools を 3.27 にバージョンアップすれば解決しそう？*2 なんだけど？ 3.27 が 404 でダウンロードできない＼(^o^)／ http://search.cp

僕も学生なのだけど(一応)、仕事をしているチームにプログラマをスカウトするために何人もの学生プログラマと会ってきた。能力はいろいろ。Linuxのソースをガンガン読んでいる人もいれば、授業のプログラミング課題がちょっと得意、くらいの人もいた。言い方は悪いけどピンキリ。 で、その差が何から来るのか疑問に思っていた。「プログラミングに対する情熱や興味の差」とか、「アルバイトでの開発の経験」などの差はもちろんあるのだが、どうもそれだけでは説明し得ない壁があるように感じたので、ここ数日それを考えていた。 で、理由を思い立った。 学生に限らず、プログラミング能力は個人差が激しい。これは最終的には「純粋な頭脳労働だから」という点に帰着すると思う。他の多くの世界と違って、プログラミングは「時間と頭脳があれば原理的に何でもできる」わけだ。他の分野においても「頭脳戦の割合が高ければ高いほど偏差も大きくなる」と

PerlのTipsになりそうなものを過去ログから引っ張り出してみました。 ランダムな文字列を生成するString::Random - Unknown::Programming local our $hoge; - Unknown::Programming whileでファイルハンドルをループする時の暗黙の$_について - Unknown::Programming リストの要素数を取得する - Unknown::Programming Perl6::Say-0.10 - Unknown::Programming クラスメソッドのインポートをModule::Compileでやっちゃう。 - Unknown::Programming メソッド呼び出しで継承する - Unknown::Programming どう書くでリハビリ - Unknown::Programming メソッド名一覧どーかく？

かなり出遅れましたが、ようやくCodeReposに参加させていただきました。 いくつかうｐ。 Class::Data::Inheritable::Lvalue Class::Data::Accessor::Lvalue 参考：Class::Data::(Inheritable|Accessor)::Lvalueってのをでっち上げた - Unknown::Programming Date::Class Catalyst::Plugin::Date::Class 参考：http://d.hatena.ne.jp/fbis/20070326/1174889790 参考：http://d.hatena.ne.jp/fbis/20070330/1175230564 DateTime::Holiday::Japanese 参考：国民の祝日の名称を取得するモジュール - Unknown::Program

「ウェブリブログ」は 2023年1月31日 をもちましてサービス提供を終了いたしました。 2004年3月のサービス開始より19年近くもの間、沢山の皆さまにご愛用いただきましたことを心よりお礼申し上げます。今後とも、BIGLOBEをご愛顧賜りますよう、よろしくお願い申し上げます。 ※引っ越し先ブログへのリダイレクトサービスは2024年1月31日で終了いたしました。 BIGLOBEのサービス一覧

YappoLogs: LvalueなAccessorのベンチマーク 良く考えたらClass::AccessorのlvalueはあるのにClass::Data::Inheritableのlvalueが無いのがカワイソウな気がしたのでちょっと作ってみた。 package Class::Data::Inheritable::Lvalue; use strict; use warnings; use Carp; our $VERSION = '0.01'; sub mk_classdata { my ($declaredclass, $attribute, $data) = @_; if( ref $declaredclass ) { croak("mk_classdata() is a class method, not an object method"); } my $coredata =

サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ

衝動買いしてしまったCatalyst本がようやくやってきた。 12/10にPacktで注文して1/2に発送したよーってメールが来て今日（1/15）届いた。 20% Pre-Order Discountというので買ったから39.99ドルのところを31.99ドルで買えた。支払いはVISAで換算レートが1ドル113.319円（換算日12/12）で3625円だった。送料は無料。日本の場合はシンガポールから発送するらしい。で、アマゾンを見ると6614円で売っててどんだけーって感じですね。3000円も高い！まだ全然読んでないけど6000円以上出すのはどうかなーとか思った。見た目は200ページ弱で結構薄いなーという印象。 ちなみに今Packtで買うと35.99ドルなんだけど12/15現在に限定すると1ドル107円とかなので4000円以下で買えるのかな。でもまあ発送は遅いんだろうけど。アマゾンなら翌日とか