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

条件指定リダイレクト

#! /usr/local/bin/perl

@arr = (                        #　転送条件
    #　特定ユーザーエージェント転送の場合
    [$ENV{'HTTP_USER_AGENT'}, "DoCoMo"],
    [$ENV{'HTTP_USER_AGENT'}, "KDDI"],
    [$ENV{'HTTP_USER_AGENT'}, "Softbank"],
    #　特定IPアドレス転送の場合
    [$ENV{'REMOTE_ADDR'}, "123.456.789.123"],
    #　特定リンク元転送の場合
    [$ENV{'HTTP_REFERER'}, "https://www.webings.net/"]
);
for($i = 0 ; $i < @arr ; $i++) {
    if($arr[$i][0] =~ $arr[$i][1]) {
        print "Location: ../../sample/\n\n";    #　転送
        exit;
    }
}
print "Content-type: text/html\n\n";
print <<END;
    <html>
    <head>
    <title>リダイレクト（条件指定）</title>
    </head>
    <body>
    ようこそ！！<br>
    </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アドレスから都道府県を取得
●文章中の文字列を別の文字列に一括変換	●カレンダー
●カレンダー（前月・次月へのリンク付）	●カレンダー（今年１月～１２月）
●掲示板	●掲示板（URL自動変換／連続改行･スペース削除）
●掲示板（年齢・性別・都道府県選択）	●画像アップロード掲示板
●チャット	●Ｗｅｂ日記
●サイトマップ（ディレクトリ内のファイルを調べる）	●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】