HOME > ソーススクラップリンク集 >  で動作します。
ヘッダ

CGI(Perl)

「 CGI(Perl) 」 を使って出来ることを紹介します。区切り線

青色のテキストをクリックコピーして、ページの所定位置に貼り付けてください。
 おみくじ

参考例⇒ 「 おみくじの参考例 」

#! /usr/local/bin/perl

@kuji = ('大吉 (^O^)/C□☆□D\(^_^ )カンパーイ!','中吉 (´∀`∩)↑age↑ ','小吉 ( ´ー`)y―┛~~','吉 ∈(゚◎゚)∋','凶 (((;-д- )=3ハァハァ'); #おみくじの配列
$rand = int(rand 5); #0〜4の乱数

# HTML出力
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>おみくじ</title>\n";
print "</head>\n";
print "<body bgcolor=\"#FDF5E6\"><center>♪〜( ̄ε ̄;)<br><br><b>\n";
print "$kuji[$rand]</b><br>\n";
print "</center></body>\n";
print "</html>\n";

exit;

 更新のたびに背景画像を変える


   表示例⇒「 背景画像


「.cgi」ファイルにコピペ!

右の例では、乱数が
int(rand 5) 壁紙の枚数が0〜5枚にしています。
つまり、6枚を用意。


画像ファイルの置き場所を表示。
$img = "./";

#! /usr/local/bin/perl

# 画像保存先(0〜の番号で保存されている)
$img = "./";

# 乱数
$rand = int(rand 5);

# 画像URL
$img = "$img$rand.jpg";

# HTML出力
print qq(Content-type: text/html\n\n);
print qq(<html>\n);
print qq(<head>\n);
print qq(<title>見る度に背景画像が変わります</title>\n);
print qq(</head>\n);
print qq(<body background="$img">\n);
print qq(見る度に背景画像が変わります<br>\n);
print qq(</body>\n);
print qq(</html>\n);

exit;


 訪問回数(クッキー, $ENV{'HTTP_COOKIE'}, Set-Cookie)



表示例; 《 訪問回数 》


アクセスランキングに・・・ネ♪


拡張子「.cgi」にペースト。


#! /usr/local/bin/perl

$COOKIENAME = "count"; # クッキー名
$COOKIELIFE = 30; # クッキー保存日数
$count = 0;

# クッキーデータ取り込み
foreach $pair (split(/;\s*/, $ENV{'HTTP_COOKIE'})) {
my ($name, $cookie) = split(/=/, $pair);
if($name eq $COOKIENAME) {
$count = $cookie;
last;
}
}

# クッキーデータ作成
$count++; # 訪問回数+1
@mon = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
@wdy = qw(Sun Mon Tue Wed Thu Fri Sat);
$life = $COOKIELIFE * 24 * 60 * 60;
($sec, $min, $hour, $day, $mon, $year, $wday) = gmtime(time + $life);
$expires = sprintf("%s, %02d-%s-%04d %02d:%02d:%02d GMT",
$wdy[$wday], $day, $mon[$mon], $year + 1900, $hour, $min, $sec);

# HTML出力
print "Content-type: text/html\n";
print "Set-Cookie: $COOKIENAME=$count; expires=$expires;\n\n"; # クッキー保存
print "<html>\n";
print "<head>\n";
print "<title>訪問回数</title>\n";
print "</head>\n";
print "<body>\n";
print " $count 回目の訪問です<br>\n";
print "</body>\n";
print "</html>\n";

exit;

区切り線

■ サイトページメニュー (メインコンテンツ)
矢印リスト 「.htaccess」を使って
このページに移動する

特定IPアドレスを指定ページへ移動
index.hml 以外をデフォルトファイルにする
cgi拡張子をhtml拡張子に変換・転送
html拡張子でPHPページ表示
トップページ以外へのリンクは、トップページに転送
HTMLファイルでCGIを動作させる設定
トップページを任意ファイルに変更
矢印リスト HTMLソース
このページに移動する

5秒後に指定URLに移動のメタタグ
テキストボックス
プルダウン
チェックボックス
ラジオボタン
テーブル(文字位置 align)

矢印リスト スタイルシート(CSS)
このページに移動する

マウスオーバーで、カーソルの形を指定
ボタン風リンク
縦書き


矢印リスト JavaScript
このページに移動する

前に表示したページに戻る
電光掲示板
文字列変換
更新日時を自動で表示

矢印リスト PHP
このページに移動する

文字サイズ・背景色選択
パスワード認証
リンク元取得・表示


矢印リスト CGI(Perl)
このページに移動する

おみくじ
更新のたびに背景画像を変える
訪問回数

矢印リスト CGI(Ruby)
このページに移動する

カレンダー
訪問回数
時刻によって挨拶文を変える

矢印リスト CGI(Python)
このページに移動する

カラーチャート
IPアドレス取得・表示
日時取得・表示

リスト その他便利等1
このページに移動する

枠線の種類
文字表示
【背景色と文字色】の関係

リスト その他便利等2
このページに移動する

サイト内検索窓
文字列に背景色をつける

   カラーチャート@   カラーチャートA   カラーチャートB  顔文字のコピペブック


Copyright (C) ソーススクラップリンク集「HP作成奮闘記」 All Rights Reserved.
※当サイトのテキスト・画像等すべての転載転用、商用販売を固く禁じます