초기화 오류로 인한 삭제 구문 기록

홈 > 웹게임 > 죄와벌 이율배반
죄와벌 이율배반

초기화 오류로 인한 삭제 구문 기록

M 산적이얌 0 2009

sub stone_open{
 open (IN,"$ndatfile") || &error("공지사항 파일이 열리지 않았습니다", 1);
 @ndat = ;
 close(IN)    or die "Can't close   : $!";
 # 50행 넘고 있으면(자) 맨 마지막 줄을 남겨 리셋트
 if($#ndat >= 50){
  open (IO,">$ndatfile");
  print IO $ndat[$#ndat];
  close (IO);
 }
}

 

290~302

 

 # 자동복구
 if($goal_no <= 730){
  open (IO,">$cdatfile");
  print IO $cdat[($#cdat)-1];
  close (IO);
 }

 

450~455

 

 if ($goal_no >730) {
 &cdat_write;
 }
 &dat_write;

 

561~564

 

 # 50행 넘고 있으면(자) 맨 마지막 줄을 남겨 리셋트
 if($#cdat >= 50){
  open (IO,">$cdatfile");
  print IO $cdat[$#cdat];
  close (IO);
 }

 

 311~316 코멘트 아웃

 

   if($#cdat >= 50){
   open (IO,">$cdatfile");
   print IO $cdat[$#cdat];
   close (IO);
  }
 591~ 595 추가

0 Comments
글이 없습니다.
글이 없습니다.
Facebook Twitter GooglePlus KakaoStory NaverBand