☰

디렉토리에 있는 모든 파일의 내용을 열 단위로 합산하는 방법

tag-icon • tag-icon text-processing numeric-data
디렉토리에 있는 모든 파일의 내용을 열 단위로 합산하는 방법

이 파일을 열 단위로 추가하고 싶습니다. 즉, 파일 1의 열 1은 파일 2의 열 1에 추가되어야 하며, 마찬가지로 파일 1의 열 2는 파일 2의 열 2에 추가되어야 합니다... ..

Col1(File1) + Col1(File2) + Col1(File3) .............. + Col1(File'n') = Col1(output_file)

Col2(File1) + Col2(File2) + Col2(File3) .............. + Col2(File'n') = Col2(output_file)

또는 파일이 다음과 같은 경우

File 1          File 2          File n                   Output File 
a   d           b   e           c   f               a+b+...+c   d+e+....+f
c   d           c   d           a   b               c+c+...+a   d+d+....+b
e   f           e   f           a   b                   .       .
g   h      +    g   h           a   b               .       .
.   .           .   ......+......   .       =       .       .
.   .           .   .           .   .                   .       .
.   .           .   .           .   .                   .       .
.   .           .   .           .   .                   .       .
.   .           .   .           .   .                   .       .

답변1

이를 수행하는 한 가지 방법은 다음과 같습니다 perl.

#!/usr/bin/perl

use strict;

my @lines=();

# read and sum the columns of all input files.
foreach my $file (@ARGV) {
  my $lc=0;   # line counter

  open(FH,'<',$file) or die "couldn't open $_ for write: $!\n";

  while (<FH>) {
    # split columns by whitespace.  change to suit your input.
    my @fields=split;

    my $fc=0;   # field counter

    while ($fc < @fields) {
      $lines[$lc]->[$fc] += $fields[$fc++];
    };
    $lc++;
  };

  close(FH);
};

# now output the summed lines
foreach my $lc (0..@lines-1) {
  # output columns separated by a TAB (\t).  Change as required.
  print join("\t", @{ $lines[$lc] } ),"\n";
}

모든 입력 파일의 각 행과 열을 합산합니다.

해당 필드에 숫자가 아닌 값은 0으로 처리됩니다.

줄 수가 같거나 다른 파일에 대해 작동합니다.

파일의 줄당 필드 수가 다른 경우에도 작동할 수 있습니다(비록 출력이 예상한 것과 다르거나 사용 가능하지 않을 수도 있으므로 권장되지 않음).

관련 정보