쉘 스크립트 작성 도움말

Question

awk이것은 보기만큼 어렵지 않으며 또는 에서 수행하는 것이 매우 쉽습니다 perl.

펄 사용:

$ perl -lpe 'if (/^#Price_Notification_Product/) {
               $prod = $_;
             } elsif (/^change: ([^%]*)%/) {
               $products{$prod} += $1;
               $_ = "change: +$products{$prod}%";
             }' input.txt 
#Price_Notification_ProductABC
Price: 0.006813
change: +1.6%
Count Number: 1

#Price_Notification_ProductABC
Price: 0.006969
change: +3.9%
Count Number: 2

#Price_Notification_ProductABC
Price: 0.007060
change: +5.2%
Count Number: 3

#Price_Notification_ProductABC
Price: 0.007300
change: +8.6%
Count Number: 4

#Price_Notification_ProductABC
Price: 0.007453
change: +10.7%
Count Number: 5

줄 종결자의 자동 처리를 켜는 Perl 옵션 -l(예: 입력에서 개행 문자를 제거하고 이를 printby 문의 출력에 추가)
이 -p옵션을 사용하면 sed처럼 작동합니다(즉, 각 입력 줄을 읽고 처리 후에 자동으로 인쇄합니다).
-e다음 인수가 실행될 스크립트임을 Perl에 알립니다.

스크립트는 각 입력 줄을 읽고 줄이 "#Price_Notification_Product"로 시작하는 경우 현재 줄을 변수에 저장합니다 $prod.

그렇지 않고 행이 "change:"로 시작하면 다음과 같습니다.

정규식 캡처를 사용하여 변경된 값을 추출하고 해당 값을 명명된 해시("연관 배열"이라고도 함)에 추가합니다 %products. 해시의 키는 제품 이름( $prod)입니다.

#Price_Notification_Product...각 제품의 행이 고유하고 일관성이 있는 한 입력에서 원하는 수의 제품 이름을 처리할 수 있도록 해싱을 사용합니다 . 각 제품 이름의 누적 합계는 독립적으로 추적됩니다.
$_이 제품의 현재 누적 합계를 갖도록 현재 행(변수)을 변경합니다 .

그런데 "change:" 줄에 소수점 앞이나 뒤에 고정된 자릿수를 지정하려면 를 사용하면 됩니다 sprintf. 예를 들어 $_ = "change...."다음과 같이 줄을 변경할 수 있습니다.
```
           $_ = sprintf("change: %7.2f%%", $products{$prod});
           s/(\d)/+$1/;
```
그러면 아래와 같이 "change" 줄이 출력됩니다.
```
change:   +1.60%
change:   +3.90%
change:   +5.20%
change:   +8.60%
change:  +10.70%
```

모든 입력 행은 수정 여부에 관계없이 인쇄됩니다.

입력은 파일( input.txt제가 사용한 것과 같은)이나 표준 입력(예: 파이프와 같은 tail -f)에서 올 수 있습니다.

그런데, 제품 수가 0으로 재설정되면 제품의 누적 합계를 0으로 재설정하고 싶을 수도 있다는 생각이 들었습니다. 이 경우 마지막 줄을 변경하십시오.

         }' input.txt

이와 관련하여:

         } elsif (/^Count Number: 0$/) {
           $products{$prod} = 0;
         }' input.txt

독립형 스크립트와 동일:

#!/usr/bin/perl -lp

if (/^#Price_Notification_Product/) {
  $prod = $_;
} elsif (/^change: ([^%]*)%/) {
  $products{$prod} += $1;
  $_ = "change: +$products{$prod}%";
}

#!Perl 인터프리터가 다른 위치에 있는 경우 올바른 전체 경로를 참조하도록 행을 조정해야 합니다 .

예를 들어 다음과 같은 이름으로 저장하고 다음 을 사용하여 실행 가능 ./script.pl하게 만듭니다 chmod +x script.pl.

$ ./script.pl input.txt

또는

$ perl -lp ./script.pl input.txt

awk 버전인 Perl 버전을 직접 번역했지만 각 "change:" 줄 의 두 번째 필드에서 앰퍼샌드를 gsub()제거 해야 합니다.+%

$ awk '
/^#Price_Notification_Product/ {
  prod = $0;
}
/^change: / {
  gsub(/[+%]/,"",$2);
  products[prod] += $2;
  $2 = "+" products[prod] "%"
}
1' input.txt

awk 스크립트의 마지막 줄은 1오타가 아닙니다. 이는 수정 여부에 관계없이 항상 현재 줄을 인쇄하도록 awk에 지시합니다(awk 스크립트는 기본적으로 일련의 PATTERN ACTION 규칙입니다. PATTERN이 true로 평가되면 ACTION이 1평가됩니다 . true로 설정하고 기본 작업은 {print})

Answer 1