では説明します。
if ($point[4]){ print "<br><div class=\"pointmessage\"><dl>\n";↓
if ($point[4]){
print "<br><div class=\"pointwordmsg\">\n";
print "<a href=\"スタンプ帳CGIのあるディレクトリへのパス/stamps.cgi?stamp=$stampcode\">$stampimage</a><br>\n";
print "<dl>\n";
my @stampcode = ('rose','bluerose','yellowrose','pinkish','sakurasakura'); my @stampimage = ('<img src="../stamps/rosestamp.jpg">','<img src="../stamps/bluerose.jpg">','<img src="../stamps/yellowrose.jpg">','<img src="../stamps/pinkish.jpg">','<img src="../stamps/sakura.jpg">'); my $i = int rand(scalar(@stampcode)); my $stampcode = $stampcode[$i]; my $stampimage = $stampimage[$i];
期間限定スタンプ帳CGI Ver.0.3