ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
Catalyst Redirects
Posted on 2007-3-5 (月) at 5:33 am by Jonathan T. Rockway Posted in: Catalyst Redirecting with Catalyst isn't always as straightforward as you might like. People (and very smart bots) often wonder why code like this: $c->res->redirect($c->uri_for('foo/bar')) if $condition; die; dies, even though $condition is true. The reason is because an HTTP redirect is just a flag sent in the header. Redirect
Data::Page::Navigationリリースしました : blog.nomadscafe.jp
Data::Page::Navigationリリースしました CPANのindexerが復活したようなので午前中にアップしたData::Page::Navigationもでてくるようになりました。 関連エントリー 1st Data::Pageとページナビゲーション 2nd Data::Page::Navigation いい感じのページナビゲーション 使い方は、 use Data::Page::Navigation; とuseするだけです。 あとは普通に my $pager = Data::Page->new(100,10,2); とData::Pageのオブジェクトを生成します。すると、表示するページ番号のリストをつくるpages_in_navigationメソッドが使えるようになってます。 my @list = $pager->pages_in_navigation(); Catalys
はてなブログ | 無料ブログを作成しよう
うまくいかない日に仕込むラペ 「あぁ、今日のわたしダメダメだ…」 そういう日は何かで取り返したくなる。長々と夜更かしして本を読んだり、刺繍をしたり…日中の自分のミスを取り戻すが如く、意味のあることをしたくなるのです。 うまくいかなかった日のわたしの最近のリベンジ方法。美味しいラペを…
ゆーすけべー日記
サキとは彼女の自宅近く、湘南台駅前のスーパーマーケットで待ち合わせをした。彼女は自転車で後から追いつくと言い、僕は大きなコインパーキングへ車を停めた。煙草を一本吸ってからスーパーマーケットへ向かうと、ひっきりなしに主婦的な女性かおばあちゃんが入り口を出たり入ったりしていた。時刻は午後5時になる。時計から目を上げると、待たせちゃったわねと大して悪びれてない様子でサキが手ぶらでやってきた。 お礼に料理を作るとはいえ、サキの家には食材が十分足りていないらしく、こうしてスーパーマーケットに寄ることになった。サキは野菜コーナーから精肉コーナーまで、まるで優秀なカーナビに導かれるように無駄なく点検していった。欲しい食材があると、2秒間程度それらを凝視し、一度手に取ったじゃがいもやら豚肉やらを迷うことなく僕が持っているカゴに放り込んだ。最後にアルコール飲料が冷やされている棚の前へ行くと、私が飲むからとチ
hide-k.net#blog: 続 C::P::Email::Japaneseの文字化け対処
hide-k.net#blog: C::P::Email::Japaneseの文字化け対処 でWAVE DASH問題に何とか対応しようとしてMIME::TT::Lite::Japaneseに手を加えるというトンチンカンなことをやっていましたが、subtech - Bulknews::Subtech - cp932 vs. shift_jisでEncode::Aliasを使えばいいんじゃないかというお話があったのでEncode::Unicode::Japaneseとからめて試してみました。 sub send : Private { use Encode::Alias; use Encode::Unicode::Japanese; define_alias( qr/jis$/i => '"unijp-jis"' ); $c->email( Template => 'email.tt', To
Catalystで文字化けな刑 - pepponの日記
mod_perlでShift_JISで書き出してくれない。 Catalystでin EUC out Shift_JISな携帯あぷでserver.plだと問題ないけど Apache2.0+mod_perlでShift_JISで出してくれなくなった。 なぜだかさっぱり。 AddDefaultCharsetとかoffとかnoneとかShift_JISとか試したけどだめだなぁー ほかのEUCあぷりは大丈夫なんだけど。 charsets => { in => 'EUC-JP', out => 'Shift_JIS', },でもHTTPレスポンスヘッダでは`EUC-JP` になっとる。 $c->res->headers->content_type('text/html; charset=Shift_JIS');こんなんしてもだめだった。 use Catalyst qw/Charsets::Japane
Return-Pathをセットする(Catalyst::Plugin::Email::Japanese) | ブログが続かないわけ
先日MIME::LiteをカスタマイズしないとReturn-Pathをセットできないというような内容のエントリを書きましたが、適切な突っ込みを頂き、私が間違っていたことがわかりました。 [参考]下記のコメント欄 Return-Pathをセットする(MIME::Lite) MIME::LiteのFromSenderに下記のように渡せばよかったので、MIME::Liteは問題なく、やっぱり素晴らしいモジュールだったのでした。$msg->send( 'sendmail', FromSender => 'error@example.com', ); さっそくこれを使ってやろうと思います。 無理だ... 私はMIME::Liteを直接使っているのではなく、Catalyst::Plugin::Email::Japaneseから使っているのですが、こいつにFromSenderをセットする機能がないのです
Perlで日本語(ISO-2022-JP)メールを送信(まとめ) - kopug memo
UTF-8で作成されたメール本文をMIME::Lite及びEncodeを使用してメールを送信をする。 そこで問題となってくるのが下記の3点。 １．チルダ（全角）等の文字化け（"〜 ‖ − ¢ £ ¬ "） ２．機種依存文字が含まれていた場合の対応 ３．MIME::Lite で smtp送信する場合、Return-Pathが有効にならない 1.チルダ（全角）等の文字化け（"〜 ‖ − ¢ £ ¬ "）に関する解決方法： これは有名らしいのですが、Encode::JPが採用している UnicodeConsortium の写像表 に問題があるとかで、 一部の文字が化けます。チルダとか。 しようがないので こんな風に対応しておきました。 my %map = ( "\x{ff5e}" => "\x{301c}", # 〜 (1-33, WAVE DASH) "\x{2225}" => "\x{201
Elementary, ... 最近のコネタ
この前の仕事からTipsをダンプ... Catalyst x Lighttod の時、Catalyst は 5.7004 以上必須 Shibuya.pm の typester さんの話で感化されたのもあって採用した Lighty、イイ。シンプルに言われたことだけをこなしてくれる感じ。 で、Catalyst を Lighty で動かすときは Catalyst 5.7004 以上が必須なんすね。でないと、SCRIPT_NAME などの環境変数のバグから、http://example.com/foo/ と http://example.com/foo のように最後にスラッシュが付く付かないで実行されるアクションが変わってしまう。なので今後はアプリケーションクラスにすぐ use Catalyst::Runtime '5.7004'; と書くことにした。 Lighty、UploadProgressは
Catalyst::View::JSON
NAME Catalyst::View::JSON - JSON view for your data SYNOPSIS # lib/MyApp/View/JSON.pm package MyApp::View::JSON; use base qw( Catalyst::View::JSON ); 1; # configure in lib/MyApp.pm MyApp->config({ ... 'View::JSON' => { allow_callback => 1, # defaults to 0 callback_param => 'cb', # defaults to 'callback' expose_stash => [ qw(foo bar) ], # defaults to everything }, }); sub hello : Local { my($self,
Lighttpd-Catalyst Technique
最小設定 lighttpd.conf server.document-root = "/path/to/root" server.port = 80
DBIC でSELECT時に複雑な関数を使いたい（例、年齢計算） | ブログが続かないわけ
ユーザーのプロフィールとして年齢を持ちたい場合、実際に年齢をユーザーに入れさせてしまうと、データの更新が必要になり大変です。当然、ユーザーには生年月日などを登録してもらうことになるわけですけど、そうなると、年齢を表示するときに、ちょっとした年齢計算が必要になります。うるう年のことなども考えると結構面倒なので、このあたりはSQLの関数でバシッと計算する方がラクにできます。 データベースには生年月日が登録されている場合に、年齢を取得することを考えてみましょう。SQLはちょこっと複雑になりますが、MySQLのサイトに解答が出ていますのでそのまままねてしまうことにします。 【参考】MySQL 4.1 リファレンスマニュアル :: 3.3.4.5 日付計算 birth というカラムに生年月日が入っているとすると、SQLはこんな感じになります。SELECT user_name, birth, (YEA
pomo123の日記 - colinuxのdebianにCatalystをインストール
まずはcolinuxのインストールと設定。 ネットワーク接続は以前にも書いたが、NATに設定。IPは192.168.0.2にした。以下が参考になる。 coLinuxのメモ - coLinuxのインストール[その5 (TAP-Win32でのNAT接続)] debianの設定は以下を参照。 http://www.si-linux.co.jp/wiki/silinux/index.php?CoLinux%A5%A4%A5%F3%A5%B9%A5%C8%A1%BC%A5%EBdebian%C0%DF%C4%EA%CA%D4 とりあえず、CPANの設定に必要なツールをそろえておく。 apt-get install unzip less wget ftp lynx make次にCPAN、 perl -MCPAN -e shellおっと、デフォルトではCPAN.pmがなかったのでおこられた。 apt-g
FormValidator::Simple で携帯のアドレスをはじく！(Catalyst) | ブログが続かないわけ
以前にFormVlidator::Simple の使い方を説明しましたが、今回はPluginを使って携帯のアドレスをはじく方法を説明します。 Webアプリを作るうえで会員登録という機能は良く出てくると思います。そこでメールアドレスを登録してもらいたいのですが、システムから送るメールなどはPC宛を想定しているため、携帯のアドレスは登録してほしくないなぁという時があると思います。そんなときには僕らの味方FormValidatorで一発チェックです。 まず、CPANにはMail::Address::MobileJpというモジュールがあります（早くもソフトバンク対応です）。これを見ると、このモジュールを使えば簡単に携帯のアドレスかどうかを判断できそうです。 しかし、これだけではFormValidatorからは利用できません。幸い、FormValidatorはPluginで拡張する機能があるので、誰
Catalyst でセッション管理を行うときのTips? | ブログが続かないわけ
本エントリーには間違いが含まれているので注意してください。 Catalystでセッション管理を行うときは下記のページを参考にしてみてください。 [Perl][Catalyst]ユーザ認証とセッション管理のサンプル [Catalyst] Authentication メモ Catalyst で Authentication Catalystでのセッション管理はどれがいいのだろう 今回は、すでにセッション管理を行っている方を対象に、ちょっとしたカスタマイズをご紹介します。 以下のやり方は間違っています。 正常に動作しませんでした。 Catalyst::Plugin::Session::State::Cookie を使ってcookieにセッションを保存するようにしている人は多いと思います。 例えば、cookie の有効期限をブラウザ終了時までとした場合、設定はこんな感じになると思います。sess
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://d.hatena.ne.jp/lestrrat/20060919
http://www.lost-season.jp/mt/2005/11/2005112322.html
サッカーライフエンジン「E-3(イースリー)」
Catalyst::View::Jemplate - Jemplate files server - metacpan.org