Awk에서 여러 줄 사용

Question

밑줄 구분 기호가있는 CSV가 있습니다.

101_1_variableName_(value) 
101_1_variableName1_(value2) 

에 : 나는 이런 식으로 하나를 변환해야 8 개 라인을 가지고

101 1 (value) (value2) 

(바람직하게는 서로 다른 상자에)

문제는 내가 모르겠입니다 awk에서 여러 줄을 사용하여 한 줄을 만드는 법. 어떤 도움을 주셔서 감사합니다.

UPDATE : (입력 + 출력)

101_1_1_trialOutcome_found_berry    
101_1_1_trialStartTime_2014-08-05 11:26:49.510000   
101_1_1_trialOutcomeTime_2014-08-05 11:27:00.318000   
101_1_1_trialResponseTime_0:00:05.804000    
101_1_1_whichResponse_d   
101_1_1_bearPosition_6   
101_1_1_patch_9   
101_1_1_food_11 

(마지막 부분 모두 한 줄)

101 1 1 found_berry 2014-08-05 11:26:49.510000 2014-08-05 11:27:00.318000 0:00:05.804000 d 6 9 11 

Answer 1

당신이 사용할 수있는 펄 :

use strict; 
use warnings; 

my %hash=(); 

while (<DATA>) { 
    if (m/^([0-9_]+)_(?:[^_]+)_(.*?)\s*$/) { 
     push @{ $hash{join(' ', split('_', $1))} }, $2;  
    } 
} 

print "$_ ". join(' ', @{ $hash{$_} })."\n" for (keys %hash); 

__DATA__ 
101_1_1_trialOutcome_found_berry    
101_1_1_trialStartTime_2014-08-05 11:26:49.510000   
101_1_1_trialOutcomeTime_2014-08-05 11:27:00.318000   
101_1_1_trialResponseTime_0:00:05.804000    
101_1_1_whichResponse_d   
101_1_1_bearPosition_6   
101_1_1_patch_9   
101_1_1_food_11 

인쇄 :

101 1 1 found_berry 2014-08-05 11:26:49.510000 2014-08-05 11:27:00.318000 0:00:05.804000 d 6 9 11 

또는 perl 한 줄 버전 :

$ perl -lane ' 
> push @{ $hash{join(" ", split("_", $1))} }, $2 if (m/^([0-9_]+)_(?:[^_]+)_(.*?)\s*$/); 
> END { print "$_ ". join(" ", @{ $hash{$_}})."\n" for (keys %hash); } 
> ' file.txt 
101 1 1 found_berry 2014-08-05 11:26:49.510000 2014-08-05 11:27:00.318000 0:00:05.804000 d 6 9 11