grep 시나리오(궁금합니다.)

글쓴이: helioce / 작성시간: 월, 2003/11/17 - 12:33오후

로그파일을 검색히다가 생각나서 질문합니다.

로그파일에서 error=" "패턴을 찾으려고 합니다.

문제는 따옴표안의 문자열이 다르다는 것인데 제가 하고싶은 행위는

따옴표안의 문장이 다른것만 출력시키고 싶습니다.

예를들면 다음과 같은 로그파일이 있다면

error="Invalid Num"

error="MapOperation Fail"

찾아낼때는 갯수는 제외하고 종류만뽑아내고 싶은겁니다.

error="Invalid Num"

error="MapOperation Fail"

아시면 답변 부탁드립니다.^^

Forums:

프로그래밍 QnA

로그인이나 등록한 후에 댓글을 작성하세요

Re: 꼭 grep 이 아니어도 된다면..

글쓴이: beta / 작성시간: 월, 2003/11/17 - 1:16오후

% man uniq
참고하세요.

helioce wrote:

로그파일을 검색히다가 생각나서 질문합니다.
로그파일에서 error=" "패턴을 찾으려고 합니다.

문제는 따옴표안의 문자열이 다르다는 것인데 제가 하고싶은 행위는

따옴표안의 문장이 다른것만 출력시키고 싶습니다.

예를들면 다음과 같은 로그파일이 있다면

error="Invalid Num"

error="Invalid Num"

error="Invalid Num"

error="MapOperation Fail"

error="MapOperation Fail"

찾아낼때는 갯수는 제외하고 종류만뽑아내고 싶은겁니다.

error="Invalid Num"

error="MapOperation Fail"

아시면 답변 부탁드립니다.^^

발 담갔다. 이제 익숙해 지는길만이..

로그인이나 등록한 후에 댓글을 작성하세요

[code:1]만든사람 기노욱. #!/usr/bin/perl

글쓴이: luscent / 작성시간: 월, 2003/11/17 - 1:24오후

만든사람  기노욱. 

#!/usr/bin/perl -w


## 실행방법
## perl this.pl <logfile> .... (갯수에 상관없음)

open(LOG,">check.txt");

my %LOG;

while(<>)
{
               $filename = $ARGV	if($. ==1)  #라인번호가 1일경우
	
	#pattern을 골라냄
	# if(/regexp/) $pattern = $&; (regexp 자체는 $&, 앞부분은 $` 뒷부분은 $');
	# substr($_, start, end);
	# 위의 둘중에 하나를 패턴으로 넣음
	
	$LOG{$filename}->{pattern} = $pattern;
	$LOG{$filename}->{count}++;
	close ARGV if eof; #파일의 끝일경우 라인번호를 초기화함.
}

## 자료구조 설명 해쉬를 사용함
# 파일이름에서 패턴을 입력함
# %LOG = (
#	filename =>
#		{
#		pattern => $pattern,
#		count => $count,
#		}
# );

for $key (keys %LOG)   #$key equal  filename
{
	print LOG $key,"\n";
	print LOG $$LOG{$key}{pattern},"\t";
	print LOG $$LOG{$key}{count},"\n";
}