罪罰改造板２/541 のバックアップ(No.1) - AqureWiki - 罪と罰＋＋二律背反、自宅サーバ、CGIゲーム

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
罪罰改造板２/541 へ行く。
- 1 (2007-09-22 (土) 15:56:21)
- 2 (2007-09-22 (土) 15:56:21)

		# 期限切れ及び レベル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");
                                }
                             }
                        }
              }
         }