Perl(Amon2)で、Formに自動でエラーメッセージを埋め込みたい。now...旅とライブと祭と廃墟。mitsutoPerl(Amon2)で、Formに自動でエラーメッセージを埋め込みたい。FormValidator::Liteとかでバリデートした結果でエラーがあった場合に、自動でエラーを埋め込むような感じにしたいなーと。書いてみたプラグインが下記。return;}1;HTML::Filter::Callbacksっていう、タグを置換するようなモジュールがあったんでこれを使って、nameが一致したinputタグの前にprependでpタグ(エラーメッセージ)を追加。上記のプラグインをロード。'+MyApp::Web::Plugin::HTML::FillInFormError',);これをエラー発生時に呼び出す。$c->render('index.tx');}で、上で読み込んでるindex.txは下記のような感じ。name="age"></form>って感じなhtmlが出力されるはずです。実際はFillinFormと一緒に使う事になるんですが、このまま使うと生成されたhtmlを2回パーズする事になるんでパフォーマンス的にイケてない気が・・。ここはまだまだ検討の余地がありそう。Amon2でアップロードされたファイルを受け取る。html側は、まぁ普通なんで簡単に。Amon2で$c->stashを使う。Amon2自体は、意図的にstashは作ってないようなんですが、ずっとCatalystを使ってたのでstashあった方が便利かなーと。FurlでBasic認証を突破する。-u的な)某APIのサンプルがcurlしかないので、Perlで実装しようとした時に、-uってどうやんのさ・・?って調べたんでメモ。叩きたいコマンドは、以下みたいな感じ。Amon2で404ページを変更する。MyApp.pmに書いたものは、$c->で呼べるようになるんで、元々ある$c->res_404を上書きする感じで。コメントをキャンセルメールアドレスが公開されることはありません。コメントデータの処理方法の詳細はこちらをご覧ください。ついでに、ライブ行ったり、写真撮ったり、祭りに行ったり。最近は西武ドーム(メットライフドーム)によく出没してます。ブログトップ、記事へのリンクはご自由にどうぞ。