Alfabetik satırların metinlerini kabuktaki sayısal satırlarla nasıl birleştirebilirim?

Bunun gibi metin içeren bir dosya var:

AAAA
BBBB
CCCC
DDDD

1234
5678
9012
3456

EEEE 

7890

vb...

Ve Alfabetik çizgileri Sayısal çizgileri ile eşleştirmek istiyorum, böylece bunlar şöyle:

AAAA 1234 
BBBB 5678
CCCC 9012
DDDD 3456

EEEE 7890

Bunu başarmanın basit bir yolunu bilen var mı?

Kullanmanın tek yolu perl:

İçeriği 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 ];
}

İçeriği infile:

AAAA
BBBB
CCCC
DDDD

1234
5678
9012
3456

EEEE 

7890

Gibi çalıştırın:

perl script.pl infile

Ve sonuç:

AAAA 1234
BBBB 5678
CCCC 9012
DDDD 3456
EEEE 7890

Gelen awk, iyi biçimlendirilmiş dosyayı varsayarak boş satırları koruyarak ama mantık dosyasını kontrol eklenebilir:

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/^ $//' 

veya tek bir adımda geçici dosyalar olmadan

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

Son sedadım, boş satırlardaki ayırıcıyı kaldırır, bu da paste...

Emacs ile metin satırlarını kesmek ve sayısal satırlardan önce yapıştırmak için dikdörtgen işlemleri kullanın.

Girişler sıralıysa,

1. Girişi aşağıdakileri kullanarak alfabetik girişlere ve sayısal girişlere ayırın grep:

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

2. Ortaya çıkan iki dosyaya katılın alphave şunu digitkullanın paste:

   • paste alpha digit( -d " "sekme yerine boşluk kullanması için ekleyebilirsiniz )

Çok kötü awk'nin güzel push / pop / unshift / shift işlevleri yok. İşte kısa bir Perl snippet'i

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

Metin içeren bir dosya verin, praşağıdaki gibi ikame sözdizimini kullanmayı deneyin ve işleyin:

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

Genişliği ayarlayabilir -w9veya boşlukları kaldırabilirsiniz sed "s/ //g".