AWS全リージョンの情報取得をperlで書いてみた

全リージョンの情報取得 (AWS x Ruby) の Python版を作ってみましたー

aws.lefthandz.org


こちらを拝見して「ほうほう、Perlでもあったら便利かなー」と思い
VM::EC2でさくっと書いてみました。

使い方

# 環境変数を設定しておきましょう
export EC2_ACCESS_KEY="AAAAAAAAAAAAAAAAA"
export EC2_SECRET_KEY="BBBBBBBBBBBBBBBBBBBBB"
export EC2_OWNER_ID="1111111111"

# 実行
perl aws_status.pl

実行結果

こんな感じ。

region : eu-west-1
region : us-east-1
region : ap-northeast-1
  instances
    i-aaaaaaaa      www1            stopped 
    i-bbbbbbbb      www2            stopped 
    i-cccccccc      db1             running 
  images
    ami-00000000                    available 
  volumes
    vol-11111111    snap-2222222                    in-use 
  snapshots
    snap-33333333   vol-44444444    snap_www        completed 
  addresses
    175.11.111.111                  i-aaaaaaa 
region : us-west-1
region : ap-southeast-1
  instances
    i-dddddddd      api1            running 
  images
    ami-55555555                    available 
  volumes
    vol-66666666    snap-7777777                    in-use 

自分でカスタマイズして表示項目変えたりするのも簡単ですね!