, en az arabelleğe alma ile sıralanmış dosyaları birleştirir

Question

Sortable bir zaman dilimi ile öntanımlı iki günlük dosyasına sahibim. Sırasıyla, günlük dosyalarını oluşturan işlemler çalışırken, onları görmek istiyorum. Bu durumun oldukça sadık simülasyon olduğunu:

slow() { 
    # print stdout at 30bps 
    exec pv -qL 30 
} 
timestamp() { 
    # prefix stdin with a sortable timestamp 
    exec tai64n 
} 

# Simulate two slowly-running batch jobs: 
seq 000 099 | slow | timestamp > seq.1 & 
seq1=$! 
seq 100 199 | slow | timestamp > seq.2 & 
seq2=$! 

# I'd like to see the combined output of those two logs, in timestamp-sorted order 
try1() { 
    # this shows me the output as soon as it's available, 
    # but it's badly interleaved and not necessarily in order 
    tail -f seq.1 --pid=$seq1 & 
    tail -f seq.2 --pid=$seq2 & 
} 
try2() { 
    # this gives the correct output, 
    # but outputs nothing till both jobs have stopped 
    sort -sm <(tail -f seq.1 --pid=$seq1) <(tail -f seq.2 --pid=$seq2) 
} 


try2 
wait 

Answer 1

solution using tee (standart çıktı hala konsola gider böylece dosyaları yazmak için) tee istenmeyen gecikme tanıtır ve çözmez çünkü işe yaramaz sorun. Benzer şekilde, tail -f -s 0.01'u kullanarak (100/s için yoklamayı değiştiren) ve/veya küçük gruplar halinde sıralamak için split --filter='sort -sm' gibi bir çağrı yapamadım.

benim test kodu aslında bu işlevsel özdeş perl kodu kullanılan bu yüzden de, tai64n yok :

: sh ve bash ile bu çözmek için başarısız olduktan sonra

tai64n() { 
    perl -MTime::HiRes=time -pe ' 
    printf "\@4%015x%x%n", split(/\./,time), $c; print 0 x(25-$c) . " "' 
} 

, benim standart yük devretmeyi perl icra

slow() { 
    # print stdout at 30bps 
    pv -qL 30 
} 

tai64n_and_tee() { 
    # prefix stdin with a sortable timestamp and copy to given file 
    perl -MTime::HiRes=time -e ' 
    $_ = shift; 
    open(TEE, "> $_") or die $!; 
    while (<>) { 
     $_ = sprintf("\@4%015x%x%n", split(/\./,time), $c) . 0 x(25-$c) . " $_"; 
     print TEE $_; 
     print $_; 
    } 
    ' "$1" 
} 

# Simulate two slowly-running batch jobs: 
seq 000 099 | slow | tai64n_and_tee seq.1 & 
seq 100 199 | slow | tai64n_and_tee seq.2 & 
wait 

Bu benim için uygun çünkü zaman damgası için zaten perl kullanıyordum. Bunu, tai64n olarak hareket eden perl ve tee olarak hareket etmek için ayrı bir perl çağrısı ile başarısız oldu, ancak gerçek tai64n ile çalışabilir.