見るたびに背景画像を変える
#! /usr/local/bin/perl # 画像保存先(0〜の番号で保存されている) $img = "../../sample/img/back/"; # 乱数 $rand = int(rand 13); # 画像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;
〔 実行する 〕