●ランダム背景
ブログのメール送信フォームの背景をランダムに表示させるようにしました。
参考サイトは、こちらです。
『津田ふみかの日記』
参考記事は、『こうさぎの背景画像をランダムに変更する』です。
もともとこれは、ブログペットの背景画像をランダムに表示させるためのものですが、それを利用してメース送信フォームの背景を変えてみました。
素材は、『ノンの素材部屋』です。
ここの場合は、下のようになります。
#!/usr/local/bin/perl ←Ｐｅｒｌのパス
my $base = 'http://papi-love.net/gazou/'; ←画像ファイルフォルダーのパス
my @files = ('wp01.jpg', 'wp02.jpg', 'wp03.jpg'); ←ファイル名は、いくつでも追加可能
my $count = @files;
srand();
my $url = $base . $files[rand($count)];
print "Location: $url\n\n";
コメント
ちえさん 私は全然エラーにならないですよ♪どのページもちゃんと開きますv(=^▽^V)~~ぶいっ♪次々に新しい挑戦すごいなあ・・・
Posted by: プチ | 2006年01月16日 23:14 [RES]
>>1 プチさん
こんばんは～
お手数をおかけしました(*- -)(*_ _)ペコリ
いってんさんは、エラーが出ないんだけど、私は良く出るんですよ。
同じパソコンを使っているのに・・・。
回線が混み合う時間に見るからかしら？？
Posted by: ちえ | 2006年01月17日 19:11 [RES]