view release on metacpan or  search on metacpan

script/aliyun-cli-regions  view on Meta::CPAN

#!/usr/bin/perl

use strict;
use warnings;
use v5.10;
use FindBin qw/$Bin/;
use lib "$Bin/../lib";
use Data::Dumper;
use MojoX::Aliyun;

binmode(STDOUT, ':encoding(utf8)');
binmode(STDERR, ':encoding(utf8)');

my $aliyun = MojoX::Aliyun->new(
    access_key => $ENV{ALIYUN_ACCESS_KEY},
    access_secret => $ENV{ALIYUN_ACCESS_SECRET},
);
my $data = $aliyun->request('GET', 'ecs', {
    Action => 'DescribeRegions',
});
foreach my $Region (sort { $a->{RegionId} cmp $b->{RegionId} } @{ $data->{Regions}->{Region} }) {
    say $Region->{RegionId} . ': ' . $Region->{LocalName};
}