amazon 3s
適当に、stsmania-backetをs3に作成して、txtファイルを置いてみた。
で、プログラムなどから操作できるのかと思いさがしたところ
perlでamazon::s3があるようなので、いれてアクセスできるかためしてみたわけです。
みんなやってるように。こんな感じでたたいてみたわけです。
使い方は、こちらのようです
---------------------------------------------------------------------------------
#!/usr/bin/perl
use warnings;
use strict;
use Amazon::S3;
my $aws_access_key_id = "うんこうんこ";
my $aws_secret_access_key = "ほげほげ";
my $s3 = Amazon::S3->new(
{ aws_access_key_id => $aws_access_key_id,
aws_secret_access_key => $aws_secret_access_key,
retry => 1
}
);
my $response = $s3->buckets;
my $bucket = $s3->bucket('stsmania-backet');
my $response = $bucket->list
or die $s3->err . ": " . $s3->errstr;
for my $key (@{ $response->{keys} }) {
print $key->{key} . "¥n";
}
---------------------------------------------------------------------------------
# perl test.pl
test.txt.txt
おお、取得できた
アマゾンすげー
- 2012.10.08 Monday
- -
- 04:29
- comments(0)
- trackbacks(0)
- -
- -
- by orz