별도의 파일에 레코드 범위를 쓰는 awk 루프

Question 1

이 시도:

gawk '{
  if ($1 == "##########") {
    FS = "\"";
    $0 = $0;
    close(modefile);
    modefile = "mode_"int($2);
    FS = " "
  } else {
    if ($1 != "-1")
      print $0 >> modefile
  }
}' inputfile

Answer

이 시도:

gawk '{
  if ($1 == "##########") {
    FS = "\"";
    $0 = $0;
    close(modefile);
    modefile = "mode_"int($2);
    FS = " "
  } else {
    if ($1 != "-1")
      print $0 >> modefile
  }
}' inputfile

Question 2

귀하의 설명에 따르면 잘못된 것에 집중하고 계신 것 같습니다. "MODE NUMBER is" 모드는 출력 파일 이름을 검색하고 변경을 트리거하는 모드입니다. 다른 모든 내용은 현재 출력 파일에만 인쇄됩니다.

Perl에서 이를 수행하는 방법은 다음과 같습니다.

"MODE NUMBER is" 줄을 출력에 포함할지(또는 DEPTH, Y1, Y2, Y3, Y4가 포함된 필드 헤더 줄)를 원하는지 확실하지 않으므로 문을 추가했으며 다음과 같은 경우 주석 처리를 취소할 수 있습니다. 당신은 그것이 제외되기를 원합니다.

$ cat split-modes.pl
#!/usr/bin/perl

while (<<>>) {
  # extract mode number, handling optional quote and leading spaces
  if (/MODE NUMBER is "? *(\d+)/i) {
    open($FH, ">", "mode_$1") || die "Couldn't open output file 'mode_$1': $!\n";

    # uncomment next line to exclude the "MODE NUMBER is" line from the output
    #next;
  };
  # Uncomment next line to exclude the "DEPTH Y1..Y4" header line
  #next if (/^\s*I\s/);

  print $FH $_;
}

또는 명령줄이나 쉘 스크립트 등에서 약간 단순화된 "한 줄짜리" 실행으로:

perl -n -e '
  if (/MODE NUMBER is "? *(\d+)/i) {
    open($FH, ">", "mode_$1");
    next;
  };
  next if (/^\s*I\s*/);
  print $FH $_;' inputfile

여기에는 거의 동일한 알고리즘이 있습니다 gawk. 주요 차이점은 패턴 번호를 추출하려면 약간 더 많은 작업이 필요하다는 점이며, 더 이상 필요하지 않으면 awk에서 파일 핸들을 명시적으로 닫는 것이 일반적으로 좋은 생각입니다(이것은 perl 문에 의해 암시적으로 수행됩니다 open()). 이는 파일을 내보낼 때 꼭 필요한 것은 아니지만 개발할 가치가 있는 좋은 습관입니다. Gawk 매뉴얼 섹션을 참조하세요.5.9 입력 및 출력 리디렉션 끄기

gawk '
/MODE NUMBER is/ {
  # extract number(s) with 1-or-more digits in MODE line into array "a"
  match($0,/[0-9]+/,a);
  close(out);

  # we are only interested in the first element of a
  out = "mode_" a[0];

  #next;
};

#/^[[:space:]]*I[[:space:]]/ { next };

{ print $0 > out }' inputfile

Answer

귀하의 설명에 따르면 잘못된 것에 집중하고 계신 것 같습니다. "MODE NUMBER is" 모드는 출력 파일 이름을 검색하고 변경을 트리거하는 모드입니다. 다른 모든 내용은 현재 출력 파일에만 인쇄됩니다.

Perl에서 이를 수행하는 방법은 다음과 같습니다.

"MODE NUMBER is" 줄을 출력에 포함할지(또는 DEPTH, Y1, Y2, Y3, Y4가 포함된 필드 헤더 줄)를 원하는지 확실하지 않으므로 문을 추가했으며 다음과 같은 경우 주석 처리를 취소할 수 있습니다. 당신은 그것이 제외되기를 원합니다.

$ cat split-modes.pl
#!/usr/bin/perl

while (<<>>) {
  # extract mode number, handling optional quote and leading spaces
  if (/MODE NUMBER is "? *(\d+)/i) {
    open($FH, ">", "mode_$1") || die "Couldn't open output file 'mode_$1': $!\n";

    # uncomment next line to exclude the "MODE NUMBER is" line from the output
    #next;
  };
  # Uncomment next line to exclude the "DEPTH Y1..Y4" header line
  #next if (/^\s*I\s/);

  print $FH $_;
}

또는 명령줄이나 쉘 스크립트 등에서 약간 단순화된 "한 줄짜리" 실행으로:

perl -n -e '
  if (/MODE NUMBER is "? *(\d+)/i) {
    open($FH, ">", "mode_$1");
    next;
  };
  next if (/^\s*I\s*/);
  print $FH $_;' inputfile

여기에는 거의 동일한 알고리즘이 있습니다 gawk. 주요 차이점은 패턴 번호를 추출하려면 약간 더 많은 작업이 필요하다는 점이며, 더 이상 필요하지 않으면 awk에서 파일 핸들을 명시적으로 닫는 것이 일반적으로 좋은 생각입니다(이것은 perl 문에 의해 암시적으로 수행됩니다 open()). 이는 파일을 내보낼 때 꼭 필요한 것은 아니지만 개발할 가치가 있는 좋은 습관입니다. Gawk 매뉴얼 섹션을 참조하세요.5.9 입력 및 출력 리디렉션 끄기

gawk '
/MODE NUMBER is/ {
  # extract number(s) with 1-or-more digits in MODE line into array "a"
  match($0,/[0-9]+/,a);
  close(out);

  # we are only interested in the first element of a
  out = "mode_" a[0];

  #next;
};

#/^[[:space:]]*I[[:space:]]/ { next };

{ print $0 > out }' inputfile

Question 3

모든 Unix 시스템의 모든 쉘에서 awk를 사용하여 이것이 필요한 것 같습니다.

awk '/MODE/{close(out); out="mode_"(cnt++)} {print > out}' file

그러나 샘플 입력으로 1개의 레코드만 제공되며 예상되는 출력이 없습니다. 이는 테스트되지 않은 추측입니다.

업데이트된 예제 입력에서 빈 줄로 구분된 레코드로 표시되면 awk의 "단락 모드"(여전히 awk 사용)를 사용하여 다음을 처리하는 것이 더 간단할 것입니다.

awk -v RS= '{out="mode_"(NR-1); print > out; close(out)}' file

예를 들어:

$ cat file
    ########## MODE NUMBER is "  0"     (RAYLEIGH WAVE) ##########
I    DEPTH          Y1             Y2             Y3             Y4
1   3.000000E-01   9.999983E-01   1.166993E+06  -1.280462E-02   0.000000E+00
2   6.000000E-01   9.999933E-01   2.351593E+06  -2.580244E-02   0.000000E+00
     This continues for a thousand or so records.
-1  0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00

    ########## MODE NUMBER is "  1"     (RAYLEIGH WAVE) ##########
I    DEPTH          Y1             Y2             Y3             Y4        1   3.000000E-01   9.999960E-01   1.183126E+06  -1.280343E-02   0.000000E+00
2   6.000000E-01   9.999840E-01   2.367720E+06  -2.562274E-02   0.000000E+00
         This continues for a thousand or so records.
-1  0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00

$ awk -v RS= '{out="mode_"(NR-1); print > out; close(out)}' file

$ head mode_*
==> mode_0 <==
    ########## MODE NUMBER is "  0"     (RAYLEIGH WAVE) ##########
I    DEPTH          Y1             Y2             Y3             Y4
1   3.000000E-01   9.999983E-01   1.166993E+06  -1.280462E-02   0.000000E+00
2   6.000000E-01   9.999933E-01   2.351593E+06  -2.580244E-02   0.000000E+00
     This continues for a thousand or so records.
-1  0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00

==> mode_1 <==
    ########## MODE NUMBER is "  1"     (RAYLEIGH WAVE) ##########
I    DEPTH          Y1             Y2             Y3             Y4        1   3.000000E-01   9.999960E-01   1.183126E+06  -1.280343E-02   0.000000E+00
2   6.000000E-01   9.999840E-01   2.367720E+06  -2.562274E-02   0.000000E+00
         This continues for a thousand or so records.
-1  0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00   0.000000E+00

Answer