düzen sekmesine komut güzelce ayrılmış liste

Bazen, örneğin tam olarak hizalanmamış bir giriş sekmesi ayrılmış listesi olarak alıyorum.

var1  var2  var3
var_with_long_name_which_ruins_alignment  var2 var3

Onları hizalamanın kolay bir yolu var mı?

var1                                      var2  var3
var_with_long_name_which_ruins_alignment  var2  var3

Böylece, cevap olur:

column -t file_name

Bunun yalnızca sekmelerde değil , herhangi bir boşlukta da sütunlara bölündüğünü unutmayın . Yalnızca sekmelerde bölmek istiyorsanız, şunu kullanın:

column -t -s $'\t' -n file_name

-s $'\t'Setleri sekme ayraç yalnızca -nkorur boş kolonları (bitişik uçları).

Not: Sadece kredinin Alex'e gittiğini belirtmek istiyorum . Asıl ipucu onun tarafından soruya yorum olarak verildi, ancak hiçbir zaman cevap olarak gönderilmedi.

İşte bunu yapmak için bir komut dosyası:

aligntabs.pl

#!/usr/bin/perl

my $delim = '\s*\t\s*';

my %length = ();
my @lines = ();
for my $line (<>) {
    chomp $line;
    my @words = split $delim, $line;
    my $numwords = scalar(@words);
    for my $i (0..$numwords-1) {
        my $maxlen = $length{$i} // 0;
        my $thislen = length($words[$i]);
        $maxlen = ($thislen > $maxlen)? $thislen: $maxlen;
        $length{$i} = $maxlen;
    }
    push @lines, [@words];
}

foreach my $wordsref (@lines) {
    my @words = @$wordsref;
    my $numwords = scalar(@words);
    for my $i (0..$numwords-1) {
        if ($i < $numwords-1) {
            my $fieldlen = $length{$i};
            printf "%-${fieldlen}s ", $words[$i];
        }
        else {
            print $words[$i];
        }
    }
    print "\n";
}

kullanım

$ aligntabs.pl < infile
var1                                     var2 var3
var_with_long_name_which_ruins_alignment var2 var3

Manuel sekme durakları için: expand -t 42,48

Alex tarafından önerildiği gibi otomatik sekme durakları için :column -t

( expandtüm POSIX sistemlerinde columnbulunmaktadır. birçok Linux dağıtımında da kullanılabilen bir BSD yardımcı programıdır.)

Peter.O'nun hizalamak istediğim yorumundan sonra (sekmeyle ayrılmış veriler, TSV), bu ifade çok güzel çalışıyor:

column -t -s $'\t' /Users/me/data.csv | less --chop-long-lines

sed 's/||/| |/g;s/||/| |/g' filename-here | column -s"|" -t | less -#2 -N -S

Açıklama:

Sed boş sınırlayıcılar arasına boşluk ekler

Sütun, sütunlar arasında eşit boşluk katacak

zydsld|asl|asd
das|aosdk|dd

olur

zydsld|asl  |asd
das   |aosdk|dd 

Daha az çıktı bir dosya görüntüleyicide açılacaktır. -N ve -S, satır numarası ekleyecek ve sırasıyla ambalajlamayı devre dışı bırakacaktır.

Miller ile ( http://johnkerl.org/miller/doc ) hoş bir baskı çıktınız var.

Çalıştırmak

mlr --inidx --ifs "\t" --opprint cat input | tail -n +2

sahip olmak

var1                                     var2 var3
var_with_long_name_which_ruins_alignment var2 var3