Delete all non-running application versions from a specific application in AWS Elastic Beanstalk. (Despite the doc's claim, currently running app versions CAN be deleted so a check is necessary)

delete_app_versions.pl

#! perl -w
use strict;
use feature 'say';

my $application = $ARGV[0] || 'massdrop-production';

my @app_versions_lines = split /\n/, `/usr/local/bin/aws elasticbeanstalk describe-application-versions --application-name $application`;
my @environment_lines = split /\n/, `/usr/local/bin/aws elasticbeanstalk describe-environments`;
my %running;
for (@environment_lines) {
	$running{$1} =1 if 	/\t(git-\S+)$/;
}
for (@app_versions_lines) {
	if (/APPLICATIONVERSIONS\t(\S+)\t.+\t.+\t(\S+)$/ && $1 eq $application && !exists $running{$2}) {
		say "deleting $1 - $2";
		say `/usr/local/bin/aws elasticbeanstalk delete-application-version --application-name $application --version-label $2`;
	}
	
}