Sayısal değerler içeren ikiden fazla dosyanın yan yana karşılaştırılması


8

Her satırda bir tane olmak üzere sıralanmış bir sayı dizisi içeren üç dosyam var:

dosya1

1
2
3

dosya2

1
3
4

dosya3

1
5

Bu üç dosyayı yan yana aşağıdaki gibi "hizalamak" istiyorum:

file1  file2  file3
1      1      1
2      
3      3
       4
              5

Denedim sdiffama sadece 2 dosyayla çalışıyor


Test ediyor diff3musun
Costas

@Costas diff3bu çıkış biçiminde değil.
Kusalananda

@Costas Evet, diff3@Kusalananda ile doğru bir şekilde belirtildiği gibi test ettim , o çıktıyı üretmedi. Ayrıca, genel bir çözüm arıyorum (n dosyaları için, n> 2)
cheseaux

Satır satır karşılaştırırsanız 5, sonuç olarak üçüncü satırda neden beşinci satırdasınız?
Costas

Satır satır karşılaştırmam
cheseaux

Yanıtlar:


6

Her dosyayı işlemek ve örneğin bazı karakter ile bir çizgi baskı olabilir Xdizisi 1- Her eksik numara için max ( max , o dosyadaki son sayıdır) pastesonuçlar daha sonra alana sahip bu karakteri değiştirin:

paste \
<(awk 'BEGIN{n=1};{while (n<$1) {print "X";n++}};{n=$1+1};1' file1) \
<(awk 'BEGIN{n=1};{while (n<$1) {print "X";n++}};{n=$1+1};1' file2) \
<(awk 'BEGIN{n=1};{while (n<$1) {print "X";n++}};{n=$1+1};1' file3) \
| tr X ' '

Tüm dosyalarda belirli bir değer eksikse, çıktınızda boş satırlar alırsınız (aslında boş değiller, yalnızca boşluklar içerirler).
Bunları kaldırmak için tr X ' ' ile sed '/[[:digit:]]/!d;s/X/ /g' de değiştirin . Ayrıca, bir başlığa ihtiyacınız varsa, her zaman önce böyle bir şey çalıştırabilirsiniz:

 printf '\t%s' file1 file2 file3 | cut -c2-

;1Yine de, sonun ne anlama geldiğini anlamakta zorlandım . Bunun {print $0}yerine, biraz daha az şifreli IMHO kullanıyorum. Neyse, tekrar teşekkürler
cheseaux

5

Awk ile genel bir çözüm: GNU awk gerektirir

gawk -v level=0 '
    FNR==1 {level++; head[level]=FILENAME}
    !seen[$1]++ { n++; idx[$1] = n }
    { out[idx[$1]][level] = $1 }
    END {
        for (j=1; j<=level; j++) {
            printf "%s\t", head[j]
        }
        print ""
        for (i=1; i<=n; i++) {
            for (j=1; j<=level; j++) {
                printf "%s\t", out[i][j]
            }
            print ""
        }
    }
' file{1,2,3,4}
file1   file2   file3   file4   
1   1   1       
2           2   
3   3           
    4       4   
        5       
            6   

Don'un yorumuna dayanarak buna daha basit ve farklı bir yaklaşım geldi:

gawk '
    FNR==1 { printf "%s\t", FILENAME }
    { seen[$1][FILENAME] = $1 } 
    END {
        print ""
        PROCINFO["sorted_in"]="@ind_num_asc"
        for (i in seen) {
            for (j=1; j<=ARGC; j++) {
                printf "%s\t", seen[i][ARGV[j]]
            } 
            print ""
        }
    }
' file{1,2,3,4}
file1   file2   file3   file4       
    1   1           
            2       
3   3               
    4       4       
5       5           
            6       
7                   

Anladım. Cevap güncellendi
glenn jackman

3

A çözüm bash, join, paste, ve kötü tat:

#! /usr/bin/env bash

if [ $# -lt 3 ]; then exit 1; fi

files=( '' "$@" )

declare -a temps
for ((i=0; i<=$#; i++)); do
    [ $i -eq 0 -o -f "${files[$i]}" ] || exit 1
    temps[$i]=$( mktemp -t "${0##*/}"_$$_XXXXXXXX ) || exit 1
done
trap 'rm -f "${temps[@]}"' EXIT HUP INT QUIT TERM

cat "$@" | sort -u >"${temps[0]}"

TAB=$( printf '\t' )
for ((i=1; i<=$#; i++)); do
    join -j1 -a1 -t"$TAB" "${temps[0]}" <(paste "${files[$i]}" "${files[$i]}") | \
        sed "/^[^$TAB]\$/ s/\$/$TAB/" >"${temps[$i]}"
done

printf '%s' ${files[1]}
for ((i=2; i<=$#; i++)); do
    printf '\t%s' ${files[$i]}
    let j=i-1
    let k=i-2
    join -j1 -t"$TAB" "${temps[$j]}" "${temps[$i]}" >"${temps[$k]}"
    cat "${temps[$k]}" >"${temps[$i]}"
done
printf '\n'

cut -d "$TAB" -f 2- <"${temps[$#]}" | sort -n

Sonuncusu hariç sort -n, bunlar sekmeler içermediği sürece (ancak TABbaşka herhangi bir ayırıcı ile değiştirilebilir) , sayılar yerine herhangi bir metin öğesiyle çalışır . Ayrıca, sadece 3 geçici dosya ve etrafındaki bazı şeyleri karıştırmakla yapılabilir (ancak bu kötü tadı artacaktır).

Sitemizi kullandığınızda şunları okuyup anladığınızı kabul etmiş olursunuz: Çerez Politikası ve Gizlilik Politikası.
Licensed under cc by-sa 3.0 with attribution required.