かんたん作成【HTML CSS JavaScript PHP CGI Perl Ruby Python .htaccess】



このエントリーをはてなブックマークに追加
カレンダー(前月・次月へのリンク付)

#! /usr/local/bin/perl

loadForm();                                        # フォームデータの取り込み

if($FORM{'y'} and $FORM{'m'}) {
    $y = $FORM{'y'};                                # 年
    $m = $FORM{'m'};                                # 月
    $d = 1;
    if($m <= 2) {
        $y--;
        $m += 12;
    }
    $startwday = ($y + int($y / 4) - int($y / 100) + int($y / 400) + int((13 * $m + 8) / 5) + $d) % 7;
    if($m > 12) {
        $y++;
        $m -= 12;
    }
}
else {
    $time = time;
    ($sec, $min, $hour, $d, $m, $y, $w) = localtime($time);                # 今日の年月取得
    $y += 1900;                                    # 今日の年
    $m++;                                        # 今日の月
    $startwday = ($w - $d % 7 + 1 + 7) % 7;                        # 今月1日の曜日
}

@days = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
if($m == 2 and ($y % 4 == 0 and $y % 100 != 0 or $y % 400 == 0)) {
    $days[1]++;                                    # うるう年
}
$enddate = $days[$m - 1];                                # 月の日数

$prevyear = $y;                                        # 前月・次月
$prevmon = $m - 1;
$nextyear = $y;
$nextmon = $m + 1;
if($prevmon < 1) {
    $prevyear -= 1;
    $prevmon += 12;
}
if($nextmon > 12) {
    $nextyear += 1;
    $nextmon -= 12;
}

print qq(Content-type: text/html; charset=Shift_JIS\n\n);
print <<END;
    <html>
    <head>
    <title>カレンダー $y年$m月</title>
    </head>
    <body>
    <center>
    <table border="5" bordercolor="#99ff99" cellspacing="0" cellpadding="8">
    <tr>
        <th colspan="7">
            <a href="$ENV{'SCRIPT_NAME'}?y=$prevyear&m=$prevmon" style="font-size:xx-small">≪前月</a> 
            $y<span style="font-size:xx-small">年</span>$m<span style="font-size:xx-small">月</span> 
            <a href="$ENV{'SCRIPT_NAME'}?y=$nextyear&m=$nextmon" style="font-size:xx-small">次月≫</a>
        </th>
    </tr>
    <tr>
        <td style="font-size:x-small;color:red">日</td>
        <td style="font-size:x-small">月</td>
        <td style="font-size:x-small">火</td>
        <td style="font-size:x-small">水</td>
        <td style="font-size:x-small">木</td>
        <td style="font-size:x-small">金</td>
        <td style="font-size:x-small;color:blue">土</td>
    </tr>
END

for($i = 0 ; $i < $startwday ; $i++) {                            # 1日までの空欄
    if(($count % 7) == 0) {
        print qq(<tr>);
    }
    print qq(<td> </td>);
    $count++;
}
for($i = 1 ; $i <= $enddate ; $i++) {                            # 日付を書き込む
    if(($count % 7) == 0) {
        print qq(<tr>);
    }
    print qq(<td align="right");
    if(($count % 7) == 0) {
        print qq( style="color:red");
    }
    if(($count % 7) == 6) {
        print qq( style="color:blue");
    }
    print qq(>$i);
    print qq(</td>);
    $count++;
    if(($count % 7) == 0) {
        print qq(</tr>\n);
    }
}
for( ; ($count % 7) != 0 ; ) {                                # 最後の日からの空欄
    print qq(<td> </td>);
    $count++;
    if(($count % 7) == 0) {
        print qq(</tr>\n);
    }
}

print <<END;
    </table>
    </center>
    </body>
    </html>
END

exit;

#============================================ フォームデータ取り込み
sub loadForm
{
    if($ENV{'REQUEST_METHOD'} eq 'POST') {
        read(STDIN, $query, $ENV{'CONTENT_LENGTH'});
    }
    else {
        $query = $ENV{'QUERY_STRING'};
    }
    foreach $pair (split(/&/, $query)) {
        ($key, $value) = split(/=/, $pair);
        $FORM{$key} = $value;
    }
}
CGI(Perl)
Hello world ! ユーザーエージェント取得・表示($ENV{'HTTP_USER_AGENT'})
IPアドレス取得・表示($ENV{'REMOTE_ADDR'}) リンク元取得・表示($ENV{'HTTP_REFERER'})
URL取得・表示($ENV{'HTTP_HOST'}, $ENV{'REQUEST_URI'}) 環境変数を全て表示(%ENV)
ホスト名取得・表示(gethostbyaddr) 訪問者のプロバイダーを表示
訪問者の都道府県を取得・表示 日付を表示(localtime time)
日付を画像表示(localtime time, substr) アクセス日時を表示(localtime time)
指定の日までの日数を表示 曜日によって背景色を変える
日によって背景色を変える 月によって背景色を変える
見るたびに背景色を変える 見るたびに背景画像を変える
おみくじ(rand, int) カラーチャート
Shift_JIS文字コード表 UTF-8文字コード表
グラフ(横棒グラフ) アクセスカウンター
アクセスカウンター(画像) アクセスカウンター(今日・昨日)
訪問回数(クッキー, $ENV{'HTTP_COOKIE'}, Set-Cookie) アクセスログ保存
アクセスログ集計 パスワード認証
クッションページ($ENV{'QUERY_STRING'}) クッションページ($ENV{'PATH_INFO'})
フォーム入力内容をクッキーに保存 1つのCGIでフレームページを表示
IPアドレスからホスト名を取得(gethostbyaddr) ホスト名からIPアドレスを取得(gethostbyname)
IPアドレスからプロバイダーを取得 IPアドレスから都道府県を取得
文章中の文字列を別の文字列に一括変換 カレンダー
カレンダー(前月・次月へのリンク付) カレンダー(今年1月〜12月)
掲示板 掲示板(URL自動変換/連続改行・スペース削除)
掲示板(年齢・性別・都道府県選択) 画像アップロード掲示板
チャット Web日記
サイトマップ(ディレクトリ内のファイルを調べる) Webデータ取得(HTTPヘッダー, HTMLソース, use Socket)
Webデータ取得(HTTPヘッダー, HTMLソース, use HTTP::Request::Common) トラックバック受信
トラックバック送信 メール送信(メールフォーム, sendmail)
リバーシ(ボードゲーム) .htaccessユーザー認証用ユーザーファイル作成
リダイレクト 条件指定リダイレクト
言語振り分けリダイレクト 条件指定アクセス拒否(ステータスコードを返す)
HTMLファイル読み込み・表示 HTMLファイル読み込み・パスワード認証
HTMLファイル読み込み・条件指定アクセス拒否 HTMLファイル読み込み・条件指定リダイレクト
外部CGIファイル読み込み(require) 画像ファイル読み込み・表示
画像縮小・拡大・サイズ変更(Image::Magick, Resize) 画像切り出し(Image::Magick, Crop)
画像文字埋め込み(Image::Magick, Annotate) 画像合成(Image::Magick, Composite)
画像生成・保存(Image::Magick->new) 画像合成アクセスカウンター
かんたん作成【HTML CSS JavaScript PHP CGI Perl Ruby Python .htaccess】