로그 파일에서 특정 정보 가져오기

Question 1

Perl "한 줄짜리":

$ perl -lne '
BEGIN{
    printf "%-10s%-10s%-10s%-10s%-15s\n", qw([user] [module] [action] [doAjax] [ajaxAction]);
} 
$usr = $mde = $act = $doAj = $ajAc = "null"; 
$usr=$1 if m|\s/([^/]+)/|; 
$mde=$1 if /m=(.+?)(&|$)/; 
$act=$1 if /a=(.+?)(&|$)/; 
$doAj=$1 if /doajax=(.+?)(&|$)/; 
$ajAc=$1 if /action=(.+?)(&|$)/; 
printf "%-10s%-10s%-10s%-10s%-15s\n", ($usr,$mde,$act,$doAj,$ajAc)' file 
[user]    [module]  [action]  [doAjax]  [ajaxAction]   
userx     contacts  form      null      null           
usery     customer  null      request   getContacts    
userx     meeting   null      date      null

여기서 기본적인 요령은 URL 부분을 식별하는 각 문자열을 검색하고, 발견되면 해당 변수를 여기에 설정하는 것입니다. 각 경우에 우리는 식별자 다음에 an =(예: m=), 그리고 a &또는 줄의 끝을 찾습니다 (&|$). 일치하는 부분을 괄호 안에 넣기 때문에(예: m=(.+?)), 이를 참조할 수 있으며 $2이것이 각 변수에 저장됩니다.

구분 기호가 정말로 필요 |하고 출력을 읽기 어렵게 만드는 것에 반대하지 않는 경우 대신 다음을 사용할 수 있습니다.

$ perl -lne '
BEGIN{
    printf "%s|%s|%s|%s|%s\n", qw([user] [module] [action] [doAjax] [ajaxAction]);
} 
$usr = $mde = $act = $doAj = $ajAc = "null"; 
$usr=$1 if m|\s/([^/]+)/|; 
$mde=$1 if /m=(.+?)(&|$)/; 
$act=$1 if /a=(.+?)(&|$)/; 
$doAj=$1 if /doajax=(.+?)(&|$)/; 
$ajAc=$1 if /action=(.+?)(&|$)/; 
print join "|", ($usr,$mde,$act,$doAj,$ajAc)' file 
[user]|[module]|[action]|[doAjax]|[ajaxAction]
userx|contacts|form|null|null
usery|customer|null|request|getContacts
userx|meeting|null|date|null

대신에 더 나은(더 읽기 쉬운 출력) 접근 방식은 다음을 사용하는 것입니다 printf.

Answer

Perl "한 줄짜리":

$ perl -lne '
BEGIN{
    printf "%-10s%-10s%-10s%-10s%-15s\n", qw([user] [module] [action] [doAjax] [ajaxAction]);
} 
$usr = $mde = $act = $doAj = $ajAc = "null"; 
$usr=$1 if m|\s/([^/]+)/|; 
$mde=$1 if /m=(.+?)(&|$)/; 
$act=$1 if /a=(.+?)(&|$)/; 
$doAj=$1 if /doajax=(.+?)(&|$)/; 
$ajAc=$1 if /action=(.+?)(&|$)/; 
printf "%-10s%-10s%-10s%-10s%-15s\n", ($usr,$mde,$act,$doAj,$ajAc)' file 
[user]    [module]  [action]  [doAjax]  [ajaxAction]   
userx     contacts  form      null      null           
usery     customer  null      request   getContacts    
userx     meeting   null      date      null

여기서 기본적인 요령은 URL 부분을 식별하는 각 문자열을 검색하고, 발견되면 해당 변수를 여기에 설정하는 것입니다. 각 경우에 우리는 식별자 다음에 an =(예: m=), 그리고 a &또는 줄의 끝을 찾습니다 (&|$). 일치하는 부분을 괄호 안에 넣기 때문에(예: m=(.+?)), 이를 참조할 수 있으며 $2이것이 각 변수에 저장됩니다.

구분 기호가 정말로 필요 |하고 출력을 읽기 어렵게 만드는 것에 반대하지 않는 경우 대신 다음을 사용할 수 있습니다.

$ perl -lne '
BEGIN{
    printf "%s|%s|%s|%s|%s\n", qw([user] [module] [action] [doAjax] [ajaxAction]);
} 
$usr = $mde = $act = $doAj = $ajAc = "null"; 
$usr=$1 if m|\s/([^/]+)/|; 
$mde=$1 if /m=(.+?)(&|$)/; 
$act=$1 if /a=(.+?)(&|$)/; 
$doAj=$1 if /doajax=(.+?)(&|$)/; 
$ajAc=$1 if /action=(.+?)(&|$)/; 
print join "|", ($usr,$mde,$act,$doAj,$ajAc)' file 
[user]|[module]|[action]|[doAjax]|[ajaxAction]
userx|contacts|form|null|null
usery|customer|null|request|getContacts
userx|meeting|null|date|null

대신에 더 나은(더 읽기 쉬운 출력) 접근 방식은 다음을 사용하는 것입니다 printf.

Question 2

awk에서 이 작업을 수행하려는 경우 다음과 같이 수행할 수 있습니다. 분할을 사용하면 필드 구분 기호를 사용하여 문자열을 분할할 수 있습니다.

awk  '{split($7,a,"/"); split(a[3],b,"m="); split(b[2],c,"&"); split(c[2],d,"="); print a[2], c[1], d[1], d[2] }' logfile

그러면 원하는 열이 생성됩니다.

userx contacts a form
usery customer doajax request
userx meeting doajax date

남은 단계는 포맷하는 것입니다. awk의 배열은 연관되어 있으며 문자열로 인덱싱될 수 있습니다.여기. 다음을 수행할 수 있습니다. 여기서 op(output의 약자)는 null로 초기화됩니다. 그런 다음 op[d[1]]=d[2].

awk  '{split($7,a,"/"); split(a[3],b,"m="); split(b[2],c,"&"); split(c[2],d,"="); op["a"]="null"; op["doajax"]="null"; op["ajaxaction"]="null"; op[d[1]]=d[2];print a[2], c[1], op["a"], op["doajax"], op["ajaxaction"] }' junk.txt

[수정됨]

awk  '{split($7,a,"/"); split(a[3],b,"m="); split(b[2],c,"&"); split(c[2],d,"="); op["a"]="null"; op["doajax"]="null"; op["action"]="null"; op[d[1]]=d[2]; split(c[3],f,"="); split(f[2],g,"."); op[f[1]]=g[1]; print a[2], c[1], op["a"], op["doajax"], op["action"] }' junk.txt

출력은 다음과 같습니다

userx contacts form null null
usery customer null request getContacts
userx meeting null date null

Answer