☰

데이터 처리

tag-icon • tag-icon shell-script awk scripting perl gawk
데이터 처리

아래와 같은 데이터가 있습니다.

host_name   Server1.domain.com
contacts    DL - Desktop
contact_groups ravi, raj, rahim
host_name  Server2.domain.com
contact_groups DL-Server
host_name Server3.domain.com
host_name Server4.domain.com
contacts   Services,helpdesk,manager

원하는 출력은 다음과 같습니다.

host_name Server1.domain.com, contacts ravi,raj,rahim, Contact_group DL-Desktop
host_name Server2.domain.com  contact_groups DL - Server
host_name Server3.domain.com
host_name Server4.domain.com contacts services,helpdesk,manager

답변1

awk에서는 이 작업을 쉽게 수행할 수 있다고 확신하지만 awk는 나를 그다지 좋아하지 않으므로 여기에 부엌 싱크대를 제외한 모든 것을 사용하여 이에 대한 내 의견이 있습니다. 데이터가 file1이라는 파일에 있다고 가정합니다.

export output=; while read line; do if [[ "$line" =~ "host_name" ]]; then export output="${output}\n"; fi; export output="${output}, $line"; done < file1 && echo -e $output | sed 's/^, \?//' | sed '/^$/d'

파일 1의 내용

host_name   Server1.domain.com
contacts    ravi, raj, rahim
contact_groups DL - Desktop
host_name  Server2.domain.com
contact_groups DL-Server
host_name Server3.domain.com
host_name Server4.domain.com
contacts   Services,helpdesk,manager

위 명령의 출력

host_name Server1.domain.com, contacts ravi, raj, rahim, contact_groups DL - Desktop
host_name Server2.domain.com, contact_groups DL-Server
host_name Server3.domain.com
host_name Server4.domain.com, contacts Services,helpdesk,manager

답변2

$ sed -e '2,$ s/^host_name/\n&/' ravi.txt | 
    perl -n -e 'if (! m/^$/) {
                    chomp;
                    $line .= $_ . ", "
                };

                if (m/^$/ || eof) {
                    $line =~ s/  +/ /g; # merge multiple spaces into one space
                    $line =~ s/, $//;   # strip the trailing comma
                    print $line,"\n" ;
                    $line=""
                }'
host_name Server1.domain.com, contacts DL - Desktop, contact_groups ravi, raj, rahim
host_name Server2.domain.com, contact_groups DL-Server
host_name Server3.domain.com
host_name Server4.domain.com, contacts Services,helpdesk,manager

먼저 sed입력을 단락(개행 문자로 구분)으로 변환하는 데 사용됩니다. 그런 다음 perl각 단락의 줄을 함께 결합하고 인쇄하세요.

이것은 전적으로 Perl에서 수행될 수 있지만 저는 게을러서 간단한 Perl scipt로 파이핑하기 전에 단락으로 변환하는 것이 더 쉬울 것이라고 생각했습니다.

관련 정보