△▲　WebProg 初心者の質問 Part18　▼▽

△▲　WebProg 初心者 ..

338:326
08/10/16 17:15:06 TDtIzxsH
ちなみに、これがソースの一部です。

&header;
print <<HTML;
あいうえお順
<hr size=1>
HTML
if($k != "5" && $k != "7"){
print "▼<a href=$cgiurl?m=sto&k=$k>点数順</a><br>\n";
print "<hr size=1>\n";
$nflag = 1;
}
@aiueo = map {$_->[0]}
sort {$a->[3] cmp $b->[3]}
map {[$_, split /,/]} @data;
for($i=$xstart;$i<$end;$i++) {
($x,$x,$hname,$kname,$content,$strong) = split(/\,/,$aiueo[$i]);
print "■$kname<br>\n";
if($nflag) { print "＋$strong<br>\n"; }
print "$content<br>\n";
print "<hr size=1>\n";
}
if($k eq "8"){ $cgiurl = "./psmon.html"; }
print <<HTML;
$prebutton $nextbutton
<a href=$cgiurl>戻る</a>
HTML
&footer;
exit;
}

次ページ