print "\n";
foreach (@find) {
local($no,$cls1,$cls2,$sub,$url,$nam,$eml,$pw,$msg,$tim,$reco) = split(/<>/);
# 結果を表示
&mydata($no,$cls1,$cls2,$sub,$url,$nam,$eml,$pw,$msg,$tim,$reco);
}
print "\n";
print "\n";
open(IN,"$logfile") || &error("Open Error: $logfile");
while () {
local($no,$cls1,$cls2,$sub,$url,$nam,$eml,$pw,$msg,$tim,$reco) = split(/<>/);
next if ($in{'class'} != $cls1);
next if ($in{'part'} ne "" && $in{'part'} != $cls2);
$i++;
next if ($i < $page + 1);
next if ($i > $page + $list_view);
&mydata($no,$cls1,$cls2,$sub,$url,$nam,$eml,$pw,$msg,$tim,$reco);
}
print "\n";