$whour = int($pr/3600);
$wmin = int(($pr%3600)/60);
$wsec = $pr%60;
if($whour>0){
$wmin = "0$wmin" if($wmin<10);
$log .="行動中･･･あと$whour時間$wmin分\n";
}elsif($wmin>0){
$wsec = "0$wsec" if($wsec<10);
$log .="行動中…あと$wmin分\n";
}else{
$log .="行動中…あと$wsec秒\n";
$log .=qq|行動中…あと$wmin分【この部分】\n|;