알파벳 줄 텍스트를 쉘의 숫자 줄과 병합하는 방법은 무엇입니까?

Question 1

에서는 awk파일의 형식이 올바르다고 가정하고 빈 줄을 남겨두지만 파일을 확인하는 논리를 추가할 수 있습니다.

awk -v RS="" '{for(i=1; i<=NF; i++) a[i]=$i
  getline
  for(i=1; i<=NF; i++) print a[i] " " $i
  print ""}' file

Answer

에서는 awk파일의 형식이 올바르다고 가정하고 빈 줄을 남겨두지만 파일을 확인하는 논리를 추가할 수 있습니다.

awk -v RS="" '{for(i=1; i<=NF; i++) a[i]=$i
  getline
  for(i=1; i<=NF; i++) print a[i] " " $i
  print ""}' file

Question 2

<input sed -nr '/^[A-Z]{4}$/,/^$/w out1
                /^[0-9]{4}$/,/^$/w out2'
paste -d' ' out1 out2 |sed 's/^ $//'

또는 한 단계로 수행하세요. 임시 파일이 필요하지 않습니다.

paste -d' ' <(sed -nr '/^[A-Z]{4}$/,/^$/p' input) \
            <(sed -nr '/^[0-9]{4}$/,/^$/p' input) | sed 's/^ $//'

마지막 sed단계에서는 빈 줄의 구분 기호를 제거합니다 paste.

Answer

<input sed -nr '/^[A-Z]{4}$/,/^$/w out1
                /^[0-9]{4}$/,/^$/w out2'
paste -d' ' out1 out2 |sed 's/^ $//'

또는 한 단계로 수행하세요. 임시 파일이 필요하지 않습니다.

paste -d' ' <(sed -nr '/^[A-Z]{4}$/,/^$/p' input) \
            <(sed -nr '/^[0-9]{4}$/,/^$/p' input) | sed 's/^ $//'

마지막 sed단계에서는 빈 줄의 구분 기호를 제거합니다 paste.

Question 3

그것을 사용하는 한 가지 방법 perl:

콘텐츠 script.pl:

use warnings;
use strict;

## Check arguments.
die qq[Usage: perl $0 <input-file>\n] unless @ARGV == 1;

my (@alpha, @digit);

while ( <> ) {
        ## Omit blank lines.
        next if m/\A\s*\Z/;

        ## Remove leading and trailing spaces.
        s/\A\s*//;
        s/\s*\Z//;

        ## Save alphanumeric fields and fields with
        ## only digits to different arrays.
        if ( m/\A[[:alpha:]]+\Z/ ) {
                push @alpha, $_;
        }
        elsif ( m/\A[[:digit:]]+\Z/ ) {
                push @digit, $_;
        }
}

## Get same positions from both arrays and print them
## in the same line.
for my $i ( 0 .. $#alpha ) {
        printf qq[%s %s\n], $alpha[ $i ], $digit[ $i ];
}

콘텐츠 infile:

AAAA
BBBB
CCCC
DDDD

1234
5678
9012
3456

EEEE 

7890

다음과 같이 실행하세요:

perl script.pl infile

결과:

AAAA 1234
BBBB 5678
CCCC 9012
DDDD 3456
EEEE 7890

Answer