วิธีการรวมข้อความของบรรทัดที่เป็นตัวอักษรเข้ากับบรรทัดที่เป็นตัวเลขในเชลล์?

ฉันมีไฟล์ที่มีข้อความเช่นนี้:

AAAA
BBBB
CCCC
DDDD

1234
5678
9012
3456

EEEE 

7890

ฯลฯ ...

และฉันต้องการจับคู่ตัวอักษรกับบรรทัดตัวเลขเพื่อให้เป็นเช่นนี้:

AAAA 1234 
BBBB 5678
CCCC 9012
DDDD 3456

EEEE 7890

ไม่มีใครรู้วิธีง่ายๆในการบรรลุเป้าหมายนี้หรือไม่?

วิธีหนึ่งในการใช้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

ใน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

<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...

ด้วย emacs ใช้การดำเนินการรูปสี่เหลี่ยมผืนผ้าเพื่อตัดบรรทัดข้อความและวางไว้ข้างหน้าบรรทัดตัวเลข

หากรายการอยู่ในลำดับ

1. แยกอินพุตเป็นรายการตัวอักษรและรายการตัวเลขโดยใช้grep:

   • grep "[[:alpha:]]\+" < file > alpha
   • grep "[[:digit:]]\+" < file > digit

2. เข้าร่วมสองไฟล์ที่ได้alphaและdigitใช้paste:

   • paste alpha digit(คุณสามารถเพิ่ม-d " "เพื่อให้มันใช้พื้นที่แทนแท็บ)

awk ที่แย่เกินไปก็ไม่มีฟังก์ชั่น push / pop / unshift / shift ที่ดี นี่เป็นตัวอย่างสั้น ๆ ของ Perl

perl -M5.010 -lne '
  given ($_) {
    when (/^[[:alpha:]]+$/) {push @alpha, $_}
    when (/^\d+$/) {say shift(@alpha), " ", $_}
    default {say}
  }
'

ให้ไฟล์พร้อมข้อความลองใช้prและประมวลผลไวยากรณ์การแทนที่ดังนี้:

$ pr -mt <(grep -i "^[a-z]" file.txt) <(grep -i "^[0-9]" file.txt)
AAAA                    1234
BBBB                    5678
CCCC                    9012
DDDD                    3456
EEEE                    7890

คุณสามารถปรับความกว้างโดยหรือลบช่องว่างโดย-w9sed "s/ //g"