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

만든사람  기노욱. 

#!/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";
}
		
		
	
		
		

grep '^error=\"[^"]*\"' log_file | sort | uniq

한방이군요 ^^
좋은 정보 감사합니다.