";
print "\n";
}
# 表示範囲を定義
$from = $res - ($t_max * $p);
$to = $from + $t_max;
$i = 0;
while () {
$i++;
if ($i <= $from) { next; }
if ($i > $to) { last; }
chop;
($no,$sub,$nam,$eml,$com,$dat,$ho,$pw,$url,$mvw) = split(/<>/);
$com = &auto_link($com, $in{'no'});
print "";
print " $sub ";
print "( No.$no ) | ";
print " \n";
print "- 日時: $dat
- 名前: $nam";
if ($eml && $mvw ne '0') {
print " <$eml>";
}
if ($url) {
print "
- 参照: $url\n";
}
print "
\n - $com
\n";
if ($job ne "past") {
print "";
}
print " | \n";
}
close(IN);
print "
| " if (!$i);
if ($res > 0) {
print " |