#body { margin:0 auto; width:600px; } IEの場合はドキュメント宣言が必要。

UTF8フラグが付いていると、テンプレートに渡したときに文字化けするので、UTF8フラグを落とす。 sub get_browse_node { my ($self, $browse_node_id) = @_; my $browse_node_file = File::Spec->catfile( $self->param("browse_node_dir"), "$browse_node_i…

とりあえずトップページを表示するところまで完成。が、行き当たりばったりなもので、明日には少しばかり中身が変わっているかもしれない。 # トップレベルのブラウズノードとその子ノードを表示 sub do_index { my $self = shift; # テンプレートに渡すデー…

設定ファイルを使うのを止めて、トップレベルのブラウズノードだけ別ファイルから読み込むことにする。 sub cgiapp_init { my $self = shift; # トップレベルのノードのリストを読み込む eval { $self->{__TOP_LEVEL_NODE_LIST} = YAML::Syck::LoadFile("top…

変数は直接記述せずに、設定ファイルから読み込むことにする。 # 設定ファイルにYAMLファイルを使用するためのプラグイン use CGI::Application::Plugin::Config::YAML; # インスタンス作成時に呼び出されるメソッド sub cgiapp_init { my $self = shift; # …

CGI::ApplicationはWebアプリを作るためのフレームワーク。やることは大きく分けて三つ。 何種類のページを作るかを決める 各ページに対応するメソッドを、CGI::Applicationのサブクラスで定義する。 2のクラスのインスタンスを作成し、runメソッドを呼び出…

スタイルシートで font-family: sans-serif を指定すると文字化けしなくなった。 <select style="font-family: sans-serif;"> <option value="hoge">hoge</option> <option value="j-hoge">ほげ</option> </select>

引数を取らないオプション use Getopt::Long; my $flag = 0; my $count = 0; GetOptions( "flag" => \$flag, # --flagで$flagを1にする "flag!" => \$flag, # --noflagで$flagを0にする（反転オプション） "count+" => \$count # --countの数だけ$countを増…

バッファとはデータを一時的に保存しておく場所。バッファリングとはデータをバッファに保存すること。print関数はバッファリングを行い、データがある程度溜まってから、まとめて出力するようになっている。 ファイルに出力する場合は一定のバイト数を超え…