罪罰改造板２/541

		# 期限切れ及び レベル2以内で3日間無アクセス(見物人排除) のファイル削除
		if((
		($id ne '0000')
		|| ($id ne '0000')
		|| ($id ne '0000')
		) && (($del_limit*3600*24<$time-$DAT{'la'})
		|| (3*3600*24<$time-$DAT{'la'} && $DAT{'lv'}<=2))){ 
			unlink("$usrdata$DAT{'id'}\.cgi");
		}
	}

• 	if(条件１){
  		if(条件２){
  			「条件１＆２で動かす処理」
  		}
  	}

• 	foreach (0 .. $#tdat){
  		%DAT = '';
  		my @pairs = split(/,/,$tdat[$_]);
  		foreach (0 .. $#pairs){
  			my($key,$v) = split(/;/,$pairs[$_]);
  			$DAT{$key} = $v;
  		}
  	（略）
  	}

# 参加者データ一括読み込み
sub usrdata_open{
	foreach (0 .. $#usrfile) {
		open(IN,"$usrdata$usrfile[$_]") || &error("Can't open $usrfile[$_]",1);
		$line = <IN>;       #<-$lineに usrdataを代入
		close(IN);          #　　　　　　↓
		push(@tdat,$line);　#<-ここに、tdatがある。末尾に$line（usrdataのこと）をつける。
	}
}

• if($del_limit*3600*24<$time-$DAT{'la'})
  || (3*3600*24<$time-$DAT{'la'} && $DAT{'lv'}<=2))){
     if($id ne ○○○○){
         if($id ne ○○○○){
             if($id ne ○○○○){
                    unlink("$usrdata$DAT{'id'}\.cgi");
  		                 }
  	                 }
                  }
          }      

if($DAT{'id'} ne ○○○○){
  if($DAT{'id'} ne ○○○○){
    if($DAT{'id'} ne ○○○○){
      if($DAT{'id'} ne ○○○○){
　　　   if($del_limit*3600*24<$time-$DAT{'la'})
         || (3*3600*24<$time-$DAT{'la'} && $DAT{'lv'}<=2))){
 unlink("$usrdata$DAT{'id'}\.cgi");
                                }
                             }
                        }
              }
         }