S3の最近のブログ記事

利用レポートの日付がわかりづらい！

Service, Operation, UsageType, Resource, StartTime, EndTime, UsageValue
AmazonS3,GetObject,DataTransfer-Out-Bytes,8122jp,11/08/11 00:00:00,11/09/11 00:00:00,70460
AmazonS3,GetObject,DataTransfer-Out-Bytes,8122jp,11/09/11 00:00:00,11/10/11 00:00:00,36570
AmazonS3,GetObject,DataTransfer-Out-Bytes,8122jp,11/10/11 00:00:00,11/11/11 00:00:00,138692
AmazonS3,HeadObject,DataTransfer-Out-Bytes,8122jp,11/10/11 00:00:00,11/11/11 00:00:00,8758
AmazonS3,ListAllMyBuckets,DataTransfer-Out-Bytes,,11/10/11 00:00:00,11/11/11 00:00:00,933

日付はMDYです。

<img id="image1"
 src="http://hoge.s3.amazonaws.com/fuga/file.jpg?AWSAccessKeyId=AKIHOGE&amp;Expires=1322305525&amp;Signature=abcde" >

• expat-develパッケージが必要。
• LWP::UserAgent::Determinedのテストがこけるので、force installする。

$ sudo yum install expat-devel
$ cpanm  LWP::UserAgent::Determined --force
$ cpanm  Amazon::S3

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

my $s3 = Amazon::S3->new({
        aws_access_key_id     => 'foo',  # アクセスキーID 
        aws_secret_access_key => 'bar',  # シークレットアクセスキー
        retry                 => 1,
     });

my $bucket = $s3->bucket('yourbucketname'); # あらかじめ作成したバケット名を指定

my $filepath = '/tmp/hello.txt';  # ローカルのファイルパス名
my $keyname = 'tmp/hello.txt';    # S3上のオブジェクトパス名

$bucket->add_key_filename($keyname, $filepath)  or die $s3->err . ':' . $s3->errstr;

$ s3cmd put --recursive   /path/to/mydir  s3://bucketname/foo/bar/  
または
$ s3cmd put --recursive   /path/to/mydir/  s3://bucketname/foo/bar/mydir/