ore_gcp-snapshot-backup.pl

#!/usr/bin/perl
use strict;
use warnings;
use feature qw(say);
use JSON qw/decode_json/;
### Initial Settings ###
my $ZONE        = shift;
my $TARGET_DISK = shift;
my $SAVE_NUMBER = shift;
########################

{
    use Time::Piece;
    use Time::Seconds;
    my $t = localtime;
    my $today = $t->strftime("%Y%m%d%H%M");
    system ("gcloud compute disks snapshot $TARGET_DISK --zone $ZONE --snapshot-names=$TARGET_DISK-$today") and die $!;
}

my $json_in = `gcloud --format=json compute snapshots list`;
my $data = decode_json($json_in);

my $i=0;
for (reverse sort @{$data}){
    my $d = $_;
    next unless $d->{sourceDisk} =~ /\/$TARGET_DISK$/;
    $i++;
    if ($i > $SAVE_NUMBER){
        say $d->{"name"} . " => delete";
        system ("gcloud compute snapshots delete $d->{name} -q") and die $!;
    }
    else {
        say $d->{"name"} . " => save";
    }
}