|
<![CDATA[
#!/usr/bin/perl
use strict;
my $ransu_kensu = 4; # 乱数の最大整数値の設定
my ($photo_no) = &get_ransu($ransu_kensu); # 乱数の取得
my ($image, $jump_link) = &get_the_link($photo_no); # 発生した乱数で飛び先ページと画像を取得する
my ($display_link) = &make_the_link($image, $jump_link); # 飛び先ページへのリンク用htmlタグを取得する
#---------- SSI用 ------------------
print "Content-type: text/html\n\n";
print "$display_link";
exit(0);
#===================================
# 乱数の最大整数値の設定
sub get_ransu {
my ($ransu_kensu) = @_;
my $ransu = int(rand($ransu_kensu) + 1; # 乱数は設定された最大整数値より１小さいので１を加算しなければならない。
return $ransu;
}
# 発生した乱数で飛び先ページを取得する
sub get_the_link {
my ($photo_no) = @_;
my @images =(); @images = ("", "image_1.jpg", "image_2.jpg", "image_3.jpg", "image_4.jpg");
my @links=(); @links = ("", "image_1/image_1.html", "image_2/image_2.html", "image_3/image_3.html", "image_4/image_4.html");
my $image = $images[$photo_no];
my $jump_link = $links[$photo_no];
return $image, $jump_link;
}
# 飛び先ページへのリンク用htmlタグを取得する
sub make_the_link {
my ($image, $jump_link) = @_;
my $url_link = '/~battle/' . "$jump_link";
my $display_link = "<a href=http://www110.kir.jp/study/jissen/\"$url_link\" target=\"_top\"><IMG src= width=\"120\" height=\"120\" border=\"0\" align=\"middle\"></A>\n";
return $display_link;
}
]]>
|