KENT-WEBトップ > 書籍執筆のご案内 > 「最速攻略 CGI/Perlサンプル大全集」

最速攻略 CGI/Perlサンプル大全集

■目次

Chapter01　Perlを使うための準備をしよう
Section01　Perlプログラムの作成に必要なソフトをそろえよう
Section02　Perlプログラムを編集するツール「テキストエディタ」
	テキストエディタとは
	インストールの方法
Section03　Perlプログラムを転送するツール「FTPソフト」
	FTPソフトとは
	インストールの方法
Section04　Perlプログラムを実行するソフト「Strawberry Perl」
	Perlプログラムを動かすためのソフト
	インストールの方法
	動作確認をする
Section05　ウェブサーバーを構築するソフト「Apache」
	Apacheとは
	インストールの方法
	設定を変更する
	動作確認をする
Section06　Perlプログラムからメール送信するソフト「Sendまね〜る」
	Sendまね〜るとは
	インストールの方法
	メールの送信テストをする
Chapter02　Perlを理解するための基礎知識
Section01　基本的な文法と基礎知識
	CGIとPerl
	Perlのパス
	文（ステートメント）
	print文と改行
	文字列とクォーテーション
	コメント
Section02　基本的な構文
	変数の構文
	数値と文字列
	演算子
	制御構文
	入出力
Section03　基本的な関数
	プログラム制御
	ファイル入出力
	ファイル操作・文字列操作
	配列制御・ハッシュ制御

Chapter03　簡単なプログラムを作ってみよう
Section01　文字を表示させよう
Section02　身長から理想的な体重を計算しよう
Section03　サイコロを転がし，丁半を表示させよう
Section04　CSVファイルで保存したテスト成績から平均点を計算しよう

Chapter04　掲示板を作ろう
Section01　掲示板サンプルの概要  [サンプル参照]
	プログラムとフォルダーの構成
	プログラムの概要
	掲示板の設定を変更する
	テンプレートファイルを変更する
Section02　新着情報ボードに改造しよう  [サンプル参照]
	プログラムとフォルダーの構成
	プログラムの概要
	掲示板の設定を変更する
	テンプレートファイルを変更する
Section03　掲示板にYouTubeの動画を表示させよう  [サンプル参照]
	プログラムとフォルダーの構成
	プログラムの概要
	掲示板の設定を変更する
	テンプレートファイルを変更する
Section04　画像をアップロードできるようにしよう  [サンプル参照]
	プログラムとフォルダーの構成
	プログラムの概要
	掲示板の設定を変更する
	テンプレートファイルを変更する

Chapter05　カレンダーを作ろう
Section01　カレンダーサンプルの概要  [サンプル参照]
	プログラムとフォルダーの構成
	プログラムの概要
	カレンダーの設定を変更する
	テンプレートファイルを変更する
Section02　任意の年月を表示させるように改造しよう  [サンプル参照]
	プログラムとフォルダーの構成
	プログラムの概要
	テンプレートファイルを変更する
Section03　管理者のみが書き込めるスケジュール表にしよう  [サンプル参照]
	プログラムとフォルダーの構成
	プログラムの概要
	カレンダーの設定を変更する
	テンプレートファイルを変更する

Chapter06　ショッピングカートを作ろう
Section01　ショッピングカートの概要  [サンプル参照]
	プログラムとフォルダーの構成
	プログラムの概要（前半）
	プログラムの概要（後半）
	ショッピングカートの設定を変更する
	商品データファイル（CSVファイル）を作成する
	商品一覧ファイルについて
	テンプレートファイルを変更する
Section02　注文金額に応じて送料を変えよう  [サンプル参照]
	プログラムとフォルダーの構成
	プログラムの概要
	ショッピングカートの設定を変更する
	テンプレートファイルを変更する
Section03　商品情報を管理画面から登録できるようにしよう  [サンプル参照]
	プログラムとフォルダーの構成
	プログラムの概要
	商品登録編集プログラム（admin.cgi）を設定する
Section04　注文ログを保存してCSVファイルでダウンロードしよう  [サンプル参照]
	プログラムとフォルダーの構成
	cart.cgiの変更点
	admin.cgiの変更点
	設定を変更する

付録
	本番サーバーへの設置の仕方

■訂正情報
・ 書籍内容または付録プログラムに修正内容がありますので、以下のとおり訂正させていただきますようお願いいたします。
・ 付録プログラムにて、ご自分での修正が難しいようでしたら、CD-ROMからコピーしたままの修正対象のCGIスクリプトを、専用フォーム よりお送りください。修正版と差し替えてさせていただきます。

<カレンダー> （Section02　任意の年月を表示させるように改造しよう）

・月の末日表示が正しくない不具合

calen.cgi

74行目付近
●変更前
# 当月の末日を求める
my $last = &holiday::last_day($year, $mon);

●変更後
# 当月の末日を求める
my $last = &holiday::last_day($in{y}, $in{m});

<カレンダー> （Section 03 管理者のみが書き込めるスケジュール表）

(1) 月の末日表示が正しくない不具合
(2) 月によって書き込んだデータがカレンダーに表示されず、又新規にその月の書込みを行うとエラーになる。

calen.cgi

61行目付近
●変更前
# 年が数字4桁でない場合、又は月が不正な数値の場合には、現在の年月を基準にする
if ($in{y} !~ /^\d{4}$/ || $in{m} > 12 || $in{m} < 1) {
    $in{y} = $year;
    $in{m} = $mon;
}

●変更後
# 年が数字4桁でない場合、又は月が不正な数値の場合には、現在の年月を基準にする
if ($in{y} !~ /^\d{4}$/ || $in{m} > 12 || $in{m} < 1) {
    $in{y} = $year;
    $in{m} = $mon;
}
$in{m} = sprintf("%02d", $in{m}); # 追加

108行目付近
●変更前
# 当月の末日を求める
my $last = &holiday::last_day($year, $mon);

●変更後
# 当月の末日を求める
my $last = &holiday::last_day($in{y}, $in{m});

386行目付近
●変更前
open(DAT,"> $datadir/$in{y}$in{m}.dat");
close(DAT);

chomod(0666, "$datadir/$in{y}$in{m}.dat");

●変更後
open(DAT,"> $datadir/$in{y}$in{m}.dat");
close(DAT);

chmod(0666, "$datadir/$in{y}$in{m}.dat");
}