NET::Amazon::S3でbucketを作成

perlモジュールNET::Amazon::S3を使ってbucketを作成する方法。

#!/usr/bin/perl

use strict;
use warnings;
use Net::Amazon::S3;

my $s3 = Net::Amazon::S3->new(
{ aws_access_key_id => 'ACCESSKEYID',
aws_secret_access_key => 'SECRETACCESSKEY',
}
);

my $bucketname = 'BUCKETNAME';
my $bucket = $s3->add_bucket( { bucket => $bucketname } )
or die $s3->err . ": " . $s3->errstr;

bucketnameはAmazonS3の中で一意になる必要があります。
自分で作ったbucketのサブbucketとして作成する方法は、
今のところ分かりません。。。

■MACにCPANをインストール
■MACにNET::Amazon::S3をインストール
■NET::Amazon::S3を使ってAmazonS3へファイルをアップロードしてみた
■NET::Amazon::S3でbucketを作成


参考：(Perl) LinuxサーバからAmazon S3を用いる (1/2)
参考：刺身☆ブーメランのはてなダイアリー
参考：CPAN