열의 평균을 계산하여 다른 열로 내보냅니다.

Question 1

스크립트는 각 입력 줄의 여러 열을 합산한 다음 모든 입력 줄을 읽은 후 END 블록이 출력 줄을 인쇄하므로 출력을 생성하기 전에 전체 파일을 처리합니다.

당신이 해야 할 일은 각 입력 라인을 개별적으로 처리하는 것입니다.

열 번호도 잘못된 것 같습니다. 예를 들어 평균 계산에 고도, 경도, 위도를 포함하는 이유는 무엇입니까? 실제로 7~19열(1월~12월)의 평균을 원한다고 가정합니다.

어쨌든, 아마도 다음과 같은 것을 더 원할 것입니다.

awk -F, -v OFS=, '
     NR == 1 { print $1, $2, $3, $4, $5, $6, "MEAN" }
     NR  > 1 {
       sum = 0;
       for (i=7; i<=19; i++) { sum += $i }
       print $1, $2, $3, $4, $5, $6, (sum / 12)
     }' observatory_1.txt > observatory_3.txt

그러면 다음과 같은 출력이 생성됩니다.

OBSERVATORY,Abbreviations,COUNTRY,ALTITUDE(m),LONGITUDE(deg),LATITUDE (deg),MEAN
Beverly-Begg Observatory Dunedin,,New Zealand,140,170.49,-45.8644,89.0558
Aorangi Iti Observatory Lake Tekapo,,New Zealand,718,170.473,-44.0082,72.1992
Mount John Observatory Lake Tekapo,,New Zealand,945,170.465,-43.9874,73.1558

이는 정확히 원하는 것이 아닐 수도 있지만 올바른 방향으로 나아가는 단계여야 합니다.

Answer

스크립트는 각 입력 줄의 여러 열을 합산한 다음 모든 입력 줄을 읽은 후 END 블록이 출력 줄을 인쇄하므로 출력을 생성하기 전에 전체 파일을 처리합니다.

당신이 해야 할 일은 각 입력 라인을 개별적으로 처리하는 것입니다.

열 번호도 잘못된 것 같습니다. 예를 들어 평균 계산에 고도, 경도, 위도를 포함하는 이유는 무엇입니까? 실제로 7~19열(1월~12월)의 평균을 원한다고 가정합니다.

어쨌든, 아마도 다음과 같은 것을 더 원할 것입니다.

awk -F, -v OFS=, '
     NR == 1 { print $1, $2, $3, $4, $5, $6, "MEAN" }
     NR  > 1 {
       sum = 0;
       for (i=7; i<=19; i++) { sum += $i }
       print $1, $2, $3, $4, $5, $6, (sum / 12)
     }' observatory_1.txt > observatory_3.txt

그러면 다음과 같은 출력이 생성됩니다.

OBSERVATORY,Abbreviations,COUNTRY,ALTITUDE(m),LONGITUDE(deg),LATITUDE (deg),MEAN
Beverly-Begg Observatory Dunedin,,New Zealand,140,170.49,-45.8644,89.0558
Aorangi Iti Observatory Lake Tekapo,,New Zealand,718,170.473,-44.0082,72.1992
Mount John Observatory Lake Tekapo,,New Zealand,945,170.465,-43.9874,73.1558

이는 정확히 원하는 것이 아닐 수도 있지만 올바른 방향으로 나아가는 단계여야 합니다.

Question 2

사용행복하다(이전 Perl_6)

raku -e 'put get.split(",")[0..5].join(",") ~ ",MEAN"; \
      for lines() {my @a = .split(","); \
      put (@a[0...5].join(",") ~ "," ~ @a.[6..*].sum / @a.[6..*].elems)};'

또는

raku -ne 'state $i=0; ++$i; my @a = .split(","); $i == 1 \
      ?? put @a.[0..5].join(",") ~ ",MEAN" \
      !! put (@a[0...5].join(",") ~ "," ~ @a.[6..*].sum / @a.[6..*].elems);'

입력 예:

OBSERVATORY,Abbreviations,COUNTRY,ALTITUDE(m),LONGITUDE(deg),LATITUDE (deg),January,February,March,April,May,June,July,August,September,October,November,December
Beverly-Begg Observatory Dunedin,,New Zealand,140,170.49,-45.8644,89.93,86.84,85.26,88.22,89.36,89.8,88.52,90.42,88.74,89.06,91.16,91.36
Aorangi Iti Observatory Lake Tekapo,,New Zealand,718,170.473,-44.0082,63.92,60.44,58.63,65.68,75.97,85.7,84.85,83.7,76.34,70.56,70.2,70.4
Mount John Observatory Lake Tekapo,,New Zealand,945,170.465,-43.9874,62.4,60.91,58.98,67.15,79.45,85.24,86.93,84.96,77.1,72.0,70.9,71.85

출력 예(위의 두 코드 솔루션 모두):

OBSERVATORY,Abbreviations,COUNTRY,ALTITUDE(m),LONGITUDE(deg),LATITUDE (deg),MEAN
Beverly-Begg Observatory Dunedin,,New Zealand,140,170.49,-45.8644,89.055833
Aorangi Iti Observatory Lake Tekapo,,New Zealand,718,170.473,-44.0082,72.199167
Mount John Observatory Lake Tekapo,,New Zealand,945,170.465,-43.9874,73.155833

첫 번째 답변에 대한 간략한 설명: get헤더 행, split쉼표 및 put처음 6개 열을 MEAN 사용하고 .split(",")[0..5].join(",") ~ ",MEAN".(ICYMI, ~물결표는 Raku에서 문자열을 연결하는 데 사용됩니다).

이제 두 번째 라인(첫 번째 데이터 라인)에서 라인별 읽기 커서를 사용하여 for lines()입력(라인별)을 읽고 쉼표 에 있는 요소를 배열 에 저장 split합니다 . 처음 6개 열은 평균을 사용하여 계산 됩니다 .","@a@a[0..5]put@a.[6..*].sum / @a.[6..*].elems

하드코딩된 열 인덱스를 사용할 수도 있습니다. @a.[6..17].sum / @a.[6..17].elems항상 12개 열이면 @a.[6..17].sum / 12그렇게 할 수 있습니다. 마지막으로 @a.[6..17].map(*.chars > 0).sum누락된 값을 조정해야 하는 경우 분모로 사용합니다.

https://raku.org

Answer