[S3] PerlからS3ストレージを利用(ちょっと進歩)

s3コマンドが使えました．

[tf0054@domU-12-31-33-00-XX-XX aws]$ ./s3 -d ls
Listing all buckets
Got all buckets listing
6ca1e26410693a4d27ad25ddca1f4-default
[tf0054@domU-12-31-33-00-XX-XX aws]$ ./s3 -d ls 6ca1e2641XXXXa4d27ad25ddca1f4-default
Listing bucket '6ca1e2641XXXXa4d27ad25ddca1f4-default'
Got bucket listing
0.dir
1.Deploying Lucene on the Grid_-pdf.file
[tf0054@domU-12-31-33-00-03-A8 aws]$

ポイントは環境変数を追加で設定しておくこと．

[tf0054@domU-12-31-33-00-03-A8 aws]$ env | egrep '(S3|AWS)'
S3_CWD=/home/tf0054/aws
AWS_SECRET_ACCESS_KEY=XXXXXZjQHRF4bHlyFfYqHTGZpNpr1isDjApXXXX
AWS_ACCESS_KEY_ID=07ZX98TTVSJG2027XXXX
S3_LIBDIR=/home/tf0054/aws/s3-example-libraries/perl
[tf0054@domU-12-31-33-00-03-A8 aws]$

なかなか奥が深い(というかJungleDiskで作ったバケット名が怪しかっただけ？)．