현재 위치

홈 ›› Forums ›› 공부 ›› 프로그래밍 QnA

[완료]펄 초보 정규표현식과 리스트.

hitman7의 이미지
글쓴이: hitman7 / 작성시간: 금, 2007/07/20 - 11:53오전

아파치 로그를 parse하기 위해서 이것저것 보던중.

my ($host,$date,$url_with_method,$status,$size,$referrer,$agent) = $line =~
m/^(\S+) - - \[(\S+ \+\d{4})\] "(\S+ \S+ [^"]+)" (\d{3}) (\d+|-) "(.*?)" "([^"]+)"$/;

을 찾았는데요.

정규표현식이 어떻게 해서 리스트로 반환이 되는지 잘 이해가 되지 않네요.
이부분에 대해서 설명좀 부탁드릴수 있을까요?

Forums: 
프로그래밍 QnA
pjm0616의 이미지

글쓴이: pjm0616 / 작성시간: 금, 2007/07/20 - 12:26오후

m/^(\S+) - - \[(\S+ \+\d{4})\] "(\S+ \S+ [^"]+)" (\d{3}) (\d+|-) "(.*?)" "([^"]+)"$/;
에서
괄호로 묶여져 있는 부분이 처음부터 $host, $date, $url_with_method,...가 됩니다.

hitman7의 이미지

글쓴이: hitman7 / 작성시간: 금, 2007/07/20 - 3:15오후

정규표현식에 ()가 매치한 부분을 리스트로 전달하게 되어있군요.
공부를 안한 죄입니다.

열심히 할께요.

far and hard way

gamdora의 이미지

글쓴이: gamdora / 작성시간: 금, 2007/07/20 - 4:24오후

그런데 저 식에서 연산자 우선 순위자 어떻게 되는 거지요?

aero의 이미지

글쓴이: aero / 작성시간: 금, 2007/07/20 - 5:09오후

Perl의 연산자 우선 순위에 의해서
참고: http://www.perl.com/doc/manual/html/pod/perlop.html
=~ 연산이 우선하므로

my ($host,$date,$url_with_method,$status,$size,$referrer,$agent) = $line =~ m/^(\S+) - - \[(\S+ \+\d{4})\] "(\S+ \S+ [^"]+)" (\d{3}) (\d+|-) "(.*?)" "([^"]+)"$/;

는
my ($host,$date,$url_with_method,$status,$size,$referrer,$agent) = ( $line =~ m/^(\S+) - - \[(\S+ \+\d{4})\] "(\S+ \S+ [^"]+)" (\d{3}) (\d+|-) "(.*?)" "([^"]+)"$/ );

과 같은 의미입니다.
하지만 언어의 연산자 우선순위에 맡기지 말고 보는 사람에 혼돈의 소지가 있을 수 있는 경우 괄호로 명시적으로 묶어 주는게 좋습니다.
$var =~ m/regex/; 형식의 연산은 정규표현식에 의해 매칭되는 문자열이 있을경우 1(true)을 리턴하고 regex에 ()를 써서 grouping하는 경우 매칭된 group들의 list를 반환 합니다.
#!/usr/bin/perl
use warnings;
use strict;
use Data::Dump qw/dump/;
 
my $line = "aa bb cc dd";
dump( $line =~ m/aa/ );
dump( $line =~ m/(aa).*?(bb).*?(cc).*?(dd)/ );

결과
1
("aa", "bb", "cc", "dd")

하지만 이것도 혼돈의 소지가 남아 있으므로

$line =~ m/^(\S+) - - \[(\S+ \+\d{4})\] "(\S+ \S+ [^"]+)" (\d{3}) (\d+|-) "(.*?)" "([^"]+)"$/;
my ($host,$date,$url_with_method,$status,$size,$referrer,$agent) = ($1, $2, $3, $4, $5, $6, $7);

처럼 해주는게 좋다고 봅니다.
pjm0616의 이미지

글쓴이: pjm0616 / 작성시간: 금, 2007/07/20 - 4:46오후

$line의 값은 변하지 않고 $line에서 m/^(\S+) - - \[(\S+ \+\d{4})\] "(\S+ \S+ [^"]+)" (\d{3}) (\d+|-) "(.*?)" "([^"]+)"$/ 의 괄호 안에 해당하는 부분이 배열로 넘어갑니다.

우선 순위는 $line =~ m/^(\S+) - - \[(\S+ \+\d{4})\] "(\S+ \S+ [^"]+)" (\d{3}) (\d+|-) "(.*?)" "([^"]+)"$/; 이 먼저겠네요.

아래처럼 해도 됩니다.
$line =~ m/^(\S+) - - \[(\S+ \+\d{4})\] "(\S+ \S+ [^"]+)" (\d{3}) (\d+|-) "(.*?)" "([^"]+)"$/;
my ($host,$date,$url_with_method,$status,$size,$referrer,$agent) = ($1, $2, $3, $4, $5, $6, $7);

둘러보기