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



このエントリーをはてなブックマークに追加
UTF-8文字コード表

#! /usr/local/bin/perl

print qq(Content-type: text/html; charset=UTF-8\n\n);
print <<END;
    <html>
    <head>
    <title>UTF-8文字コード表</title><style type="text/css">
    <!--
    body    {
        text-align:center;
    }
    h1    {
        margin:2px;
        font-size:18px;
        text-align:center;
    }
    table    {
        margin:20px;
        width:95%;
        border-top:1px solid #666;
        border-left:1px solid #666;
    }
    th, td    {
        text-align:center;
        border-right:1px solid #666;
        border-bottom:1px solid #666;
    }
    th    {
        background:#fc9;
    }
    //-->
    </style>
    </head>
    <body>
    <h1>UTF-8文字コード表</h1>
    <a href="?">2バイト文字/1バイト文字</a>
    <a href="?e0">e0a080?</a>
    <a href="?e2">e28080?</a>
    <a href="?e4">e48080?</a>
    <a href="?e6">e68080?</a>
    <a href="?e8">e88080?</a>
END

if($ENV{'QUERY_STRING'}) {
    print qq(<table cellspacing="0">\n);
    print qq(<tr>);
    print qq(<th>3バイトコード</th>);
    for($i = 0 ; $i < 16; $i++) {
        printf(qq(<th>+%x</th>), $i);
    }
    print qq(</tr>\n);
    if($ENV{'QUERY_STRING'} eq "e0") {
        $start = hex("e0");
        $end = hex("e1");
    }
    elsif($ENV{'QUERY_STRING'} eq "e2") {
        $start = hex("e2");
        $end = hex("e3");
    }
    elsif($ENV{'QUERY_STRING'} eq "e4") {
        $start = hex("e4");
        $end = hex("e5");
    }
    elsif($ENV{'QUERY_STRING'} eq "e6") {
        $start = hex("e6");
        $end = hex("e7");
    }
    elsif($ENV{'QUERY_STRING'} eq "e8") {
        $start = hex("e8");
        $end = hex("e9");
    }
    for($i = $start ; $i <= $end ; $i++) {
        if($start == hex("e0")) {
            $start2 = hex("a0");
        }
        else {
            $start2 = hex("80");
        }
        $end2 = hex("bf");
        for($j = $start2 ; $j <= $end2 ; $j++) {
            my    $start3 = hex("80");
            my    $end3 = hex("bf");
            for($k = $start3 ; $k <= $end3 ; $k++) {
                if(($k - $start3) % 16 == 0) {
                    print qq(<tr>);
                    printf(qq(<th>%x%x%x</th>), $i, $j, $k);
                }
                printf(qq(<td title="%x%x%x">%s%s%s</td>), $i, $j, $k, chr($i), chr($j), chr($k));
                if(($k + 1 - $start3) % 16 == 0) {
                    print qq(</tr>\n);
                }
            }
        }
    }
    print qq(</table>\n);
}
else {
    print qq(<table cellspacing="0">\n);
    print qq(<tr>);
    print qq(<th>2バイトコード</th>);
    for($i = 0 ; $i < 16; $i++) {
        printf(qq(<th>+%x</th>), $i);
    }
    print qq(</tr>\n);
    $start = hex("c2");
    $end = hex("df");
    for($i = $start ; $i <= $end ; $i++) {
        $start2 = hex("80");
        $end2 = hex("bf");
        for($j = $start2 ; $j <= $end2 ; $j++) {
            if(($j - $start2) % 16 == 0) {
                print qq(<tr>);
                printf(qq(<th>%x%x</th>), $i, $j);
            }
            printf(qq(<td title="%x%x">%s%s</td>), $i, $j, chr($i), chr($j));
            if(($j + 1 - $start2) % 16 == 0) {
                print qq(</tr>\n);
            }
        }
    }
    print qq(</table>\n);

    print qq(<table cellspacing="0">\n);
    print qq(<tr>);
    print qq(<th>1バイトコード</th>);
    for($i = 0 ; $i < 16; $i++) {
        printf(qq(<th>+%x</th>), $i);
    }
    print qq(</tr>\n);
    for($i = 0 ; $i < 8 ; $i++) {
        print qq(<tr>);
        printf(qq(<th>%x0</th>), $i);
        for($j = 0 ; $j < 16 ; $j++) {
            printf(qq(<td title="%02x">%s</td>), $i * 16 + $j, chr($i * 16 + $j));
        }
        print qq(</tr>\n);
    }
    print qq(</table>\n);
}

print <<END;
    <a href="/">←戻る</a>
    </body>
    </html>
END

exit;
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】