일련의 새 파일을 생성하기 위해 awk를 사용하여 두 파일 사이의 산술

Question 1

TL;박사:awk귀하의 예를 위해 하드코딩된 압축 스크립트

NR != FNR {
    out = "out" FNR ".txt"
    printf "" > out
    for (l=m=1; l <= nl; l++)
        printf tmpl[l] ORS, l in vals ? $(m++)*vals[l] : 0 >> out
    close(out)
    next
}

{
    gsub(/%/, "%%")
# here is the regex that selects the fields by their name
    if ($3 ~ /^(vox_la_max|knockout_max|shed_prob)[^[:alnum:]_]*$/) {
        vals[NR] = $1
        sub(/^[0-9]+(\.[0-9]+)?/, OFMT)
    }
    tmpl[NR] = $0; nl++
}

다음과 같이 사용하세요:

LC_NUMERIC=C awk -f script input.txt multipliers.txt

라는 출력 파일이 생성됩니다 outX.txt.

LC_NUMERIC=C이 비트는 로케일에서 부동 소수점 값의 소수 구분 기호로 점 대신 쉼표를 사용하는 경우 필요합니다.

단순화를 위해 합리적으로 보이는 몇 가지 가정을 세웠습니다.

필수 입력 필드는 항상 필드 이름이 한 단어이고 공백(최소 하나의 공백)으로 구분되어야 함을 나타내는 주석이 인접한 별도의 값입니다./*
같은 이름의 필드가 없습니다.
부동 소수점 값은 숫자와 (아마도) 점으로만 표현됩니다. 즉, 지수나 기타 과학적 표현은 사용하지 않습니다.

위와 동일하지만 다음을 허용하도록 상세하고 설명되고 확장되었습니다.

행 번호별로 필수 항목을 임의로 지정
각 필드에 속하는 입력 라인의 주석으로 참조되는 이름으로 필수 필드를 임의로 지정합니다.
출력 파일은 확장자(예: .txt)를 가질 수 있는 입력 파일 이름을 따라 자동으로 이름이 지정되며 표시된 경로(있는 경우)는 다음과 같아야 합니다.아니요즉, 입력 파일이 포함된 디렉터리에서 스크립트를 실행하는 것이 더 좋습니다.

# some preparations
BEGIN {
    # output files named as the input file name
    split(ARGV[1], f, ".")
    outpfx = f[1]
    # remember wanted fields specified on command line as comma-separated line numbers
    if (nums) {
        # split variable "nums" on comma into helper array "r"
        n = split(nums, r, ",")
        # loop over helper array to build final array, thus indexed by wanted line numbers
        while (n) rows[r[n--]]
    }
}

# here we operate on multipliers file
NR != FNR {
    # output file name for this set of multipliers
    out = outpfx FNR ".txt"
    # create/overwrite this output file
    printf "" > out
    # loop over template lines scanned from input file
    for (linenum = multnum = 1; linenum <= numlines; linenum++)
        # use the template line as printf format string to consume values to be multiplied (if any)
        printf tmpl[linenum] ORS, linenum in wanted_values ? $(multnum++)*wanted_values[linenum] : 0 >> out
    close(out)
    next
}

# here we scan the input file to build a template for printf
{
    # escape existing % chars as we are going to leverage printfs own format string which is %-based
    gsub(/%/, "%%")
    # on specified line numbers or named fields:
    if (NR in rows || names && match($3, "^("names")[^[:alnum:]_]*$")) {
        # remember this value
        wanted_values[NR] = $1
        # replace the original value with the printfs conversion specification for floating-point values
        # it will be used by printf later on while processing the multipliers file
        sub(/^[0-9]+(\.[0-9]+)?/, OFMT)
    }
    # remember this whole line as a template
    tmpl[NR] = $0; numlines++
}

다음과 같이 사용하세요:

# specify fields by their line numbers, each separated by a comma
LC_NUMERIC=C awk -f script -v nums=36,38,39 input.txt multipliers.txt
# or specify fields by their names, each separated by the | character (NOTE it's a regexp)
LC_NUMERIC=C awk -f script -v names='vox_la_max|knockout_max|shed_prob' input.txt multipliers.txt
# or also use both ways of specifying fields
LC_NUMERIC=C awk -f script -v nums=15,112,234,71,5 -v names='vox_la_max|numesp' input.txt multipliers.txt

승수보다 더 많은 필드가 지정되면 초과 필드는 0(0을 곱함)이 됩니다.

승수보다 적은 수의 필드를 지정하면 초과 승수는 무시됩니다.

어떤 경우든 필드는 항상 표시된 줄 번호 순서대로 승수를 사용합니다. 즉, 입력 파일에서 발견된 첫 번째 필드는 해당 필드를 지정하는 방법에 관계없이 첫 번째 승수를 사용합니다.

Answer

TL;박사:awk귀하의 예를 위해 하드코딩된 압축 스크립트

NR != FNR {
    out = "out" FNR ".txt"
    printf "" > out
    for (l=m=1; l <= nl; l++)
        printf tmpl[l] ORS, l in vals ? $(m++)*vals[l] : 0 >> out
    close(out)
    next
}

{
    gsub(/%/, "%%")
# here is the regex that selects the fields by their name
    if ($3 ~ /^(vox_la_max|knockout_max|shed_prob)[^[:alnum:]_]*$/) {
        vals[NR] = $1
        sub(/^[0-9]+(\.[0-9]+)?/, OFMT)
    }
    tmpl[NR] = $0; nl++
}

다음과 같이 사용하세요:

LC_NUMERIC=C awk -f script input.txt multipliers.txt

라는 출력 파일이 생성됩니다 outX.txt.

LC_NUMERIC=C이 비트는 로케일에서 부동 소수점 값의 소수 구분 기호로 점 대신 쉼표를 사용하는 경우 필요합니다.

단순화를 위해 합리적으로 보이는 몇 가지 가정을 세웠습니다.

필수 입력 필드는 항상 필드 이름이 한 단어이고 공백(최소 하나의 공백)으로 구분되어야 함을 나타내는 주석이 인접한 별도의 값입니다./*
같은 이름의 필드가 없습니다.
부동 소수점 값은 숫자와 (아마도) 점으로만 표현됩니다. 즉, 지수나 기타 과학적 표현은 사용하지 않습니다.

위와 동일하지만 다음을 허용하도록 상세하고 설명되고 확장되었습니다.

행 번호별로 필수 항목을 임의로 지정
각 필드에 속하는 입력 라인의 주석으로 참조되는 이름으로 필수 필드를 임의로 지정합니다.
출력 파일은 확장자(예: .txt)를 가질 수 있는 입력 파일 이름을 따라 자동으로 이름이 지정되며 표시된 경로(있는 경우)는 다음과 같아야 합니다.아니요즉, 입력 파일이 포함된 디렉터리에서 스크립트를 실행하는 것이 더 좋습니다.

# some preparations
BEGIN {
    # output files named as the input file name
    split(ARGV[1], f, ".")
    outpfx = f[1]
    # remember wanted fields specified on command line as comma-separated line numbers
    if (nums) {
        # split variable "nums" on comma into helper array "r"
        n = split(nums, r, ",")
        # loop over helper array to build final array, thus indexed by wanted line numbers
        while (n) rows[r[n--]]
    }
}

# here we operate on multipliers file
NR != FNR {
    # output file name for this set of multipliers
    out = outpfx FNR ".txt"
    # create/overwrite this output file
    printf "" > out
    # loop over template lines scanned from input file
    for (linenum = multnum = 1; linenum <= numlines; linenum++)
        # use the template line as printf format string to consume values to be multiplied (if any)
        printf tmpl[linenum] ORS, linenum in wanted_values ? $(multnum++)*wanted_values[linenum] : 0 >> out
    close(out)
    next
}

# here we scan the input file to build a template for printf
{
    # escape existing % chars as we are going to leverage printfs own format string which is %-based
    gsub(/%/, "%%")
    # on specified line numbers or named fields:
    if (NR in rows || names && match($3, "^("names")[^[:alnum:]_]*$")) {
        # remember this value
        wanted_values[NR] = $1
        # replace the original value with the printfs conversion specification for floating-point values
        # it will be used by printf later on while processing the multipliers file
        sub(/^[0-9]+(\.[0-9]+)?/, OFMT)
    }
    # remember this whole line as a template
    tmpl[NR] = $0; numlines++
}

다음과 같이 사용하세요:

# specify fields by their line numbers, each separated by a comma
LC_NUMERIC=C awk -f script -v nums=36,38,39 input.txt multipliers.txt
# or specify fields by their names, each separated by the | character (NOTE it's a regexp)
LC_NUMERIC=C awk -f script -v names='vox_la_max|knockout_max|shed_prob' input.txt multipliers.txt
# or also use both ways of specifying fields
LC_NUMERIC=C awk -f script -v nums=15,112,234,71,5 -v names='vox_la_max|numesp' input.txt multipliers.txt

승수보다 더 많은 필드가 지정되면 초과 필드는 0(0을 곱함)이 됩니다.

승수보다 적은 수의 필드를 지정하면 초과 승수는 무시됩니다.

어떤 경우든 필드는 항상 표시된 줄 번호 순서대로 승수를 사용합니다. 즉, 입력 파일에서 발견된 첫 번째 필드는 해당 필드를 지정하는 방법에 관계없이 첫 번째 승수를 사용합니다.

Question 2

사용진주출력 파일을 생성합니다.

perl -wMstrict -pale '
BEGIN {
  ## variables declaration
  use vars qw($name $extn);
  use vars qw($header $template $footer);
  use vars qw(@glob_params $num_re);

  ## pick apart include.txt filename into its components
  ($name, $extn) =
    pop =~ m{(.*?)(\.[^.]*|)$}x;

  ## split and stuff into variables the include.txt file
  ($header, $template, $footer) =
    do{local $/;<STDIN>;} =~
    m{\A
    (.*?\n)
    (\#+\h*GENERAL\h+PARAMETERS\h*\n.*?\n\n)
    (.*)
    }xms;

  ## names of global parameters to vary
  @glob_params =
    qw( vox_la_max knockout_max shed_prob);

  # cinstruct the regex to search for numbers
  my $sign = qr{ [-+] }x;
  my $float = qr{ \d+(?:\.\d*)?|\.\d+ }x;
  my $exponent = qr{ [eE][-+]?\d+ }x;
  $num_re =
    qr{ $sign? $float $exponent? }x;
}

##### multiplier.txt processed from here onwards
  my %mult;
  @mult{ @glob_params } = @F;
  my $template_copy = $template;
  for (@glob_params) {
    $template_copy =~
      s{^($num_re)(?=\h+/\*\h*\Q$_\E\b)}{$1 * $mult{$_}}xme;
  }

  my $out = sprintf "%s%d%s",
    $name, $., $extn;
  open my $fh, ">", $out
    or die "Opening $out for writing:$!";
  select $fh;
  s/.*/$header$template_copy$footer/;
' multipliers.txt < include.txt include.txt

Answer

사용진주출력 파일을 생성합니다.

perl -wMstrict -pale '
BEGIN {
  ## variables declaration
  use vars qw($name $extn);
  use vars qw($header $template $footer);
  use vars qw(@glob_params $num_re);

  ## pick apart include.txt filename into its components
  ($name, $extn) =
    pop =~ m{(.*?)(\.[^.]*|)$}x;

  ## split and stuff into variables the include.txt file
  ($header, $template, $footer) =
    do{local $/;<STDIN>;} =~
    m{\A
    (.*?\n)
    (\#+\h*GENERAL\h+PARAMETERS\h*\n.*?\n\n)
    (.*)
    }xms;

  ## names of global parameters to vary
  @glob_params =
    qw( vox_la_max knockout_max shed_prob);

  # cinstruct the regex to search for numbers
  my $sign = qr{ [-+] }x;
  my $float = qr{ \d+(?:\.\d*)?|\.\d+ }x;
  my $exponent = qr{ [eE][-+]?\d+ }x;
  $num_re =
    qr{ $sign? $float $exponent? }x;
}

##### multiplier.txt processed from here onwards
  my %mult;
  @mult{ @glob_params } = @F;
  my $template_copy = $template;
  for (@glob_params) {
    $template_copy =~
      s{^($num_re)(?=\h+/\*\h*\Q$_\E\b)}{$1 * $mult{$_}}xme;
  }

  my $out = sprintf "%s%d%s",
    $name, $., $extn;
  open my $fh, ">", $out
    or die "Opening $out for writing:$!";
  select $fh;
  s/.*/$header$template_copy$footer/;
' multipliers.txt < include.txt include.txt

일련의 새 파일을 생성하기 위해 awk를 사용하여 두 파일 사이의 산술

답변1

답변2

관련 정보