[완료] perl oneliner 최적화 질문입니다.

얼마전에 로그파일을 분석할 일이 생겨서 텍스트 파일에서 일정한 패턴 사이에 있는 부분을 긁어오는 script를 만들어보았습니다.

perl -pi -e 'if(/start/){$f=1;};if($f==1){print STDOUT $_;};if(/end/){;$f=0;}' [Target file]

보시다시피 실행시키면 Target file이 다음과 같을 때 'start'가 출현한 라인부터 'end'까지 긁어오게 되있습니다.
Target file >
1
... start ...
2
3
4
... end ...
5
6
...

출력 >
... start ...
2
3
4
... end ...

의도했던데로 잘 돌아가기는 하더군요. 그러나 곧 2가지 문제점을 발견하였습니다.

1. 다음과 같이 명령을 하면 무한루프를 돌면서 ctrl+c가 늦을 경우 시스템을 바보 만들어버리더군요.
perl -pi -e 'if(/start/){$f=1;};if($f==1){print STDOUT $_;};if(/end/){;$f=0;}' *.tmp > a.tmp
출력파일인 a.tmp에 쓰는 동시에 스크립트도 실행하면서 a.tmp의 용량이 무한대로 증가하는 현상인 것 같습니다. 다행히 혼자쓰는 서버여서 서버가 정신 차릴 동안 커피 한 잔 마시고 왔을 뿐이지만 혹여나 중요한 서버에서 이런 실수를 하게 되면 생각만해도 끔찍하네요. 예방할 수 있는 방법이 없을까요?

2. 너무 멋이 없네요(^^;) 회사에서 perl을 즐겨 쓰는 사람이 저 밖에 없는지라, perl의 장점을 널리 알리려면 뭔가 있어보이는 것도 중요하지 않겠습니까! KLDP에서 고수님들이 만드시는 oneliner를 보면 감동이 느껴지거든요.
모쪼록 도와주시면 감사하겠습니다. (__) 굽신굽신