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";