초기화 오류로 인한 삭제 구문 기록 > 죄와벌 이율배반

[code]

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);
 }

}

[/code]

290~302

[code]

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

[/code]

450~455

[code]

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

[/code]

561~564

[code]

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

[/code]

 311~316 코멘트 아웃

[code]

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

 591~ 595 추가

[/code]