Remove orphaned forwarding-rules and target pools on Google Cloud

cleanup-gcloud.sh

#!/bin/bash -eu

# Remove orphaned forwarding-rules and target pools on Google Cloud

list_target_pools() {
	gcloud compute target-pools list --limit 1000 --format json | \
		jq '.[] | 
			{
				name: .name,
				region: .region | split("/")[8],
				instance: .instances[0] | split("/") | 
					{
						zone: .[8],
						name: .[10]
					}
			}' \
		-c \
	| sort > target-pools.json 
}

list_instances() {
	gcloud compute instances list --limit 1000 --format json | \
		jq '.[] | 
			{
				zone: .zone | split("/")[8],
				name: .name
			}' \
		-c \
	| sort > instances.json
}

clean_up() {
	while read pool; do
		if ! grep $(jq -c .instance <<< $pool) instances.json >/dev/null; then
			name=$(jq -r .name <<< $pool)
			region=$(jq -r .region <<< $pool)
			echo $pool
			gcloud compute forwarding-rules delete $name --region $region --quiet
			gcloud compute target-pools     delete $name --region $region --quiet
		fi
	done < <(jq . target-pools.json -c)
}

list_target_pools
list_instances
clean_up