AWS Step Functions(JSONata)でAWS料金をSlackへ通知【Lambda無し】

Start: |-
  {%
    /* 7日前の日付(YYYY-MM-DD)を持ってくる */
    ($millis() - 86400000 * 7) ~> $fromMillis('[Y0001]-[M01]-[D01]')
  %}
End: |-
  {%
    /* 今日の日付(YYYY-MM-DD)を持ってくる */
    /* ※CEの最新コスト反映にはラグがあることに注意 */
    $millis() ~> $fromMillis('[Y0001]-[M01]-[D01]')
  %}

CostSum: |-
  {%
    /* 全グループアイテムのコストを取得して、合計を求める */
    $states.result.ResultsByTime[].Groups[].Metrics.UnblendedCost.Amount.$number()
    ~> $sum() ~> $round(1)
  %}
CostSorted: |-
  {% (
    /* 全グループアイテムの「サービスとコストのペア」を取得 */
    $all_entries := $map(
      $zip(
        $states.result.ResultsByTime[].Groups[].Keys[0],
        $states.result.ResultsByTime[].Groups[].Metrics.UnblendedCost.Amount.$number()
      ),
      function($v) { {"Service": $v[0], "Amount": $v[1]} }
    );

    /* サービス名の重複を排除したリストを作っておく */
    $services := $all_entries.Service ~> $distinct();

    /* サービス名ごとのコストを計算する */
    $cost_per_service := $map(
      $services,
      function($s){
        {
          "Service": $s,
          "Total": $all_entries[Service=$s].Amount ~> $sum() ~> $round(1)
        }
      }
    );

    /* 降順でソート */
    $sort($cost_per_service, function($l, $r){ $l.Total < $r.Total });
  ) %}

title: |-
  {%
    /* コスト合計がしきい値を超えたら「お怒りメッセージ」にする */
    $states.input.CostSum > $AngryThreshold ?
      ":serious_face_with_symbols_covering_mouth: コスト監視くんはお怒りです"
      : ":simple_smile: コスト監視くんは平常心を保っています"
  %}
description: |-
  {%
    "ここ1週間ぐらいのコストは "
    & $string($states.input.CostSum)
    & " USD です。"
    & "\n"
    & "\n:one: "   & ( $states.input.CostSorted[0].Service ~> $replace(/^(AWS|Amazon)\s*/,"") ) & ": " & $states.input.CostSorted[0].Total & " USD"
    & "\n:two: "   & ( $states.input.CostSorted[1].Service ~> $replace(/^(AWS|Amazon)\s*/,"") ) & ": " & $states.input.CostSorted[1].Total & " USD"
    & "\n:three: " & ( $states.input.CostSorted[2].Service ~> $replace(/^(AWS|Amazon)\s*/,"") ) & ": " & $states.input.CostSorted[2].Total & " USD"
    & "\n:four: "  & ( $states.input.CostSorted[3].Service ~> $replace(/^(AWS|Amazon)\s*/,"") ) & ": " & $states.input.CostSorted[3].Total & " USD"
    & "\n:five: "  & ( $states.input.CostSorted[4].Service ~> $replace(/^(AWS|Amazon)\s*/,"") ) & ": " & $states.input.CostSorted[4].Total & " USD"
  %}