| [ CnUnix ] in KIDS 글 쓴 이(By): wang (Chip쟁이) 날 짜 (Date): 2005년 8월 31일 수요일 오후 03시 07분 24초 제 목(Title): Re: 스크립트 질문: 특정 부분 추출 저는 state machine을 주로 사용합니다. $state = 0; @buf = (); while(<>){ if($state==0){ if(/^start/){$state = 1;$buf[0] = $_;} }elsif($state==1){ $buf[$#buf+1] = $_; if(/^return/){ chomp; @l = split /\s\s*/; if($l[1] > 5){ print @buf;} $state = 0; @buf = (); } } } |