Вопросы Теги

Организация данных по заголовку

Записи в /etc/ld.so.conf искал по порядку. Следовательно, порядок имеет значение.

Это имеет значение только в том случае, если одно и то же имя библиотеки (точнее говоря, одно и то же SONAME) присутствует в нескольких каталогах. Если есть каталоги, которые, как вы абсолютно уверены, никогда не будут содержать одну и ту же библиотеку, вы можете разместить их в желаемом порядке.

В частности, это означает, что каталоги в / usr / local должны располагаться перед каталогами за пределами / usr / local , поскольку эти каталоги должны иметь приоритет над системой по умолчанию. файлы. Среди каталогов, управляемых распределением, это, вероятно, не имеет значения.

1
17.10.2018, 16:28
3 ответа

не могу... сопротивляться... шуму в линии... 

perl -F, -slE'if(@ARGV){say;@h=@F}elsif($.>1){$d{$F[0]}->@{@h}=($F[0],("null")x@h)unless$d{$F[0]};$d{$F[0]}{$F[1]}=$F[2]}close ARGV if eof}END{say$d{$_}->@{@h}for keys%d' -- -,=, file{1,2}.csv

или (несколько )более разумный -вкладыш 

perl -F, -lane '
    if (@ARGV) {print; @sources = @F[1..$#F]}  # the first file
    elsif ($. > 1) {                           # the 2nd file, minus the header
        $data{$F[0]}->@{@sources} = ("null") x @sources unless $data{$F[0]};
        $data{$F[0]}{$F[1]} = $F[2]; 
    }
    close ARGV if eof;    # reset $. for each new file
  } END {
    $, = ",";
    print $_, $data{$_}->@{@sources} for sort keys %data
' file1.csv file2.csv

или это "combine.pl" 

#!/usr/bin/env perl
use v5.22;
use Path::Tiny;        # convenience module from CPAN

# read the header from the first file
my $file = path("file1.csv");
my @lines = $file->lines;
my $header = $lines[0];
chomp $header;
my @sources = split /,/, $header;

# read the data from the second file
$file = path("file2.csv");
chomp( @lines = $file->lines );
shift @lines;          # ignore the header
my %data;
for my $line (@lines) {
    my ($id, $source, $value) = split /,/, $line, 3;
    if (not exists $data{$id}) {
        # initialize the output data for a new id
        $data{$id}->@{ @sources } = ($id, ("null") x scalar(@sources));
    }
    # and store this value
    $data{$id}{$source} = $value;
}

# output the results
say $header;
$, = ",";
for my $id (sort {$a <=> $b} keys %data) {
    say $data{$id}->@{@sources};
}

, затем:perl combine.pl > output.csv

0
27.01.2020, 23:31

... и неизбежное awkпредложение:

awk -F, '
function PRT()  {printf "%d", ID                                        # print first field: ID
                 for (i=2; i<=MAX; i++) printf ",%s",PF[i]?PF[i]:"null" # print popuated fields in sequence, "null" if empty
                 printf ORS                                             # line feed
                }

NR==FNR         {print                                                  # in first file; print header
                 for (MAX=n=split ($0, T); n; n--) COL[T[n]] = n        # split header and find column No. per header field
                 next                                                   # no further processing of this line
                }
FNR > 2 &&                                                              # skip printout for first ID (in second line of file2)
$1 != ID        {PRT()                                                  # print if new ID found
                 split ("", PF)                                         # empty the print array
                }

                {ID = $1                                                # retain ID
                 PF[COL[$2]] = $3                                       # collect col values into respective column
                }

END             {PRT()                                                  # print last IDs record
                }
' file[12]                                                              # shells "pattern matching"  expands resp. files
id,abc,xyz,aaa,bbb,ccc
1,100,200,null,null,null
2,null,null,300,400,500
0
27.01.2020, 23:31

это классическая нерасплавленная или неопрятная операция.

Используя Миллера(http://johnkerl.org/miller/doc)и начиная с

id,source,value 1,abc,100 1,xyz,200 2,aaa,300 2,bbb,400 2,ccc,500

можешь бежать 

mlr --csv reshape -s source,value then unsparsify input.csv

И есть

id,abc,xyz,aaa,bbb,ccc 1,100,200,,, 2,,,300,400,500

2
27.01.2020, 23:31

Теги

Похожие вопросы