CGI::Applicationを使ったアンケートプログラムの習作
はじめに PerlのWEBアプリケーションフレームワークとして、CGI::Applicationというものがある。 これを使った簡単なアンケートプログラムを紹介する。 プログラムの内容 最初の入力画面で名前などを入力し、確認画面を経て、登録完了画面でデータを登録する。 間違った入力をした場合、確認画面には進まず、入力画面に強制に戻る。 入力画面 （XXXを入力してください） 確認画面 （内容を確認してください） 登録完了画面 （登録完了しました） ファイル構成 index.cgi コントローラー（すべてのユーザリクエストを受ける） config.cfg 設定ファイル tmpl HTMLテンプレートファイルの置き場 input.tmpl 入力画面のHTMLテンプレートファイル check.tmpl 確認画面のHTMLテンプレートファイル finish.tmpl 登録完了画面のHTMLテン
CGI::ProgressBar - CGI.pm sub-class with a progress bar object - metacpan.org
NAME CGI::ProgressBar - CGI.pm sub-class with a progress bar object SYNOPSIS use strict; use warnings; use CGI::ProgressBar qw/:standard/; $| = 1; # Do not buffer output print header, start_html( -title=>'A Simple Example', -style=>{ -src => '', # You can override the bar style here -code => '', # or inline, here. } ), h1('A Simple Example'), p('This example will update a JS/CSS progress bar.'), p
CGI::Application::Plugin::Stash - add stash to CGI::Application - metacpan.org
NAME CGI::Application::Plugin::Stash - add stash to CGI::Application SYNOPSIS use CGI::Application::Plugin::Stash; $self->stash->{foo}='bar'; $self->param('foo','bar'); #same DESCRIPTION CGI::Application::Plugin::Stash is a plugin for CGI::Application. This module allow you to call stash like Catalyst. SEE ALSO CGI::Application Catalyst AUTHOR Masahiro Nagano, <kazeburo@gmail.com> COPYRIGHT AND LI
blog.nomadscafe.jp: CGI::ApplicationでTropy
CGI::ApplicationでTropy Tropyが面白い。しかも勉強用にちょうどいいサイズ。 クローンがいくつか既にあるけど、ハテナオヤさんがCatalystでつくったので、CGI::Applicationでもやってみた。 http://nomadscafe.jp/caropy/caropy.cgi ネーミングセンスないけど、CGI::Application::TropyなのでCaropyとしてみた。 ソースはこちらから見れます。 依存するモジュールは以下です。 CGI::Application::Plugin::TT CGI::Application::Plugin::FormValidator::Simple CGI::Application::Plugin::Redirect Class::DBI::Sweet Primaryキーの生成にはData::UUIDを使用してます。
cgiapp
Messages by Thread [cgiapp] Mailing list shutting down Jesse Erlbaum Re: [cgiapp] Mailing list shutting down Thomas Krichel Re: [cgiapp] Mailing list shutting down jerry Re: [cgiapp] Mailing list shutting down Jesse Erlbaum Re: [cgiapp] Mailing list shutting down max . augsburg Re: [cgiapp] Mailing list shutting down Thomas Krichel Re: [cgiapp] Mailing list shutting down Lyle Re: [cgiapp] Mailing
CGI::Application::Plugin::Redirect : blog.nomadscafe.jp
CGI::Application::Plugin::Redirect CGI::Application::Plugin::Redirectが出ていますね。名前から想像する通り、redirectの処理を行ってくれるものです。 package MyApp; use base qw(CGI::Application); use CGI::Application::Plugin::Redirect; sub start { my $self = shift; return $self->redirect('http://www.example.com/'); } リダイレクトの相対→絶対への変換はサポートしていないのであまり役に立ちそうもないかなぁと思ってましたが、ところがどっこい。１つ面白い機能がありました。 cgiapp_prerunでのリダイレクト、 package MyApp; use b
@kyanny's blog
初めての女性トレーナーと。開始まで 15 分を切ってから予約したら五分近く遅れて入ってきた。「遅れてごめんなさい、前の生徒さんのレッスンが終わったあとで、システムに問題があったから再起動してたら、もう一人予約したことに気づかなかったの」構わないよ、と今日はどうでした的な話から、仕事・会社の話をいろいろしてたら、途中で画面が完全にフリーズ。最初はお互いのビデオだけ固まってると思ったら残り時間の数字も変わらないので MyStage 丸ごと固まった、と思ってブラウザ再起動しようとしたらブラウザも反応しない、これは復旧は厳しそうだと思い、なぜか音声だけはいい調子で繋がってたので、話せるだけこのまま話し続けさせてくれ、と。で、ふとデスクトップ右上の時計を見ると、19:18 から進んでない！ここでようやく、ブラウザだけじゃなく画面全体がフリーズしてることに気づく。腕時計を見たら 19:24 で、残り何
CGI::Application
NAME CGI::Application - Framework for building reusable web-applications SYNOPSIS # In "WebApp.pm"... package WebApp; use base 'CGI::Application'; # ( setup() can even be skipped for common cases. See docs below. ) sub setup { my $self = shift; $self->start_mode('mode1'); $self->mode_param('rm'); $self->run_modes( 'mode1' => 'do_stuff', 'mode2' => 'do_more_stuff', 'mode3' => 'do_something_else' );
CGI::Application::Plugin::Forward - Pass control from one run mode to another - metacpan.org
NAME CGI::Application::Plugin::Forward - Pass control from one run mode to another VERSION Version 1.06 SYNOPSIS use base 'CGI::Application'; use CGI::Application::Plugin::Forward; sub setup { my $self = shift; $self->run_modes([qw( start second_runmode )]); } sub start { my $self = shift; return $self->forward('second_runmode'); } sub second_runmode { my $self = shift; my $rm = $self->get_current
CGI::Application::Plugin::Redirect - Easy external redirects in CGI::Application - metacpan.org
NAME CGI::Application::Plugin::Redirect - Easy external redirects in CGI::Application SYNOPSIS package My::App; use CGI::Application::Plugin::Redirect; sub cgiapp_prerun { my $self = shift; if ( << not logged in >> ) { return $self->redirect('login.html'); } } sub byebye { my $self = shift; return $self->redirect('http://www.example.com/', '301 Moved Permanently'); } DESCRIPTION This plugin provid
Perlメモ/CGI::Applicationモジュール - Walrus, Digit.
この他に、日本語の情報としては、川合さんの河馬屋二千年堂でCGI::Applicationモジュール v.1.2 の和訳ドキュメントを見ることができます。上記の4.04版のドキュメント和訳にあたっても、参考にさせていただきました。 CGI::ApplicationモジュールのSYNOPSISにあるサンプルでは、CGIファイルとモジュールを"webapp.cgi"と"WebApp?.pm"の2ファイルに分けています。 実際のアプリケーション作りではこうなっていたほうが（再利用性や柔軟性などから）良いと思いますが、ちょっとCGI::Applicationを試してみるなどという時には、ライブラリパスなどを考えなくて済むように、1ファイルにまとめたいと思うこともあります。この時は、単純に次のようにするだけで実現できます。 !#/usr/bin/perl ### 元"webapp.cgi"の内容..
CGI::Application - 再利用可能なWebアプリケーションを構築するためのフレームワーク
CGI::Applicationモジュール v.1.2 by Hippo2000(2000/9/3) CGI::ApplicationモジュールはHTML::Template、CGI.pmをベースとしたCGIアプリケーションを作成するためのフレームワークを提供します。 作者はJesse Erlbaumさんです。メールで許可をいただきました。 内容等が間違っていたら修正します。ご連絡ください。 目次 名前 概要 使用例 概略 説明 インスタンス・スクリプト・メソッド サブクラス化とメソッドのオーバーライド アプリケーション・モジュール・メソッド 参考資料 作者 クレジット ライセンス 名前 CGI::Application - 再利用可能なWebアプリケーションを構築するためのフレームワーク 概要 # WebApp.pm package WebApp; use base 'CGI::Appl
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
http://www.border.jp/nekokak/blog/archives/2005/12/cgiappdebugscre_6.html
http://twinkle.cc/perltips/archives/2005/02/cgiapplication.php
Perlメモ/CGI::Applicationモジュール - Walrus, Digit.
CGI-Application-4.61 - Framework for building reusable web-applications - metacpan.org
CGI-Application-4.50 - Framework for building reusable web-applications - metacpan.org
Index of /~naoya/ys
http://news.livedoor.com/webapp/journal/cid__1292488/detail?rd
CGI::Application::Plugin::ValidateRM - Help validate CGI::Application run modes using Data::FormValidator - metacpan.org