这段时间要忙迁移公司的业务到aws，上，先简单的写一些，具体的有时间再补充了.... 首先需要下载s3的相关的perl的pm： http://developer.amazonwebservices.com/connect/entry.jspa?externalid=133categoryid=47 #!/usr/bin/perl # simply connects to my s3
这段时间要忙迁移公司的业务到aws，上，先简单的写一些，具体的有时间再补充了....
首先需要下载s3的相关的perl的pm：
http://developer.amazonwebservices.com/connect/entry.jspa?externalid=133&categoryid=47
#!/usr/bin/perl
# simply connects to my s3 account, creates a new bucket
# and uploads a file called logo.jpg (passed thru stdin) with
# public-read acl set
use strict;
use warnings;
print you must specil file name for key\n if @argv1;
use s3;
use s3::awsauthconnection;
use s3::querystringauthgenerator;
my $aws_access_key_id = '1dq5tn5665z7tvdnn682';
my $aws_secret_access_key = 'czppqc55s2zf8jxwfme4juohpb9h4pqgtigbf3se';
my $bucket_name = 'squidwm' ;
my $key=$argv[0];
#my @file_name_for_key=split/\//,$argv[0];
#my $key = pop @file_name_for_key;
#print $key;
my %headers = (
    'x-amz-acl' => 'public-read','cache-control'=>'24342',
);
my $conn =
    s3::awsauthconnection->new($aws_access_key_id, $aws_secret_access_key);
my $generator =
    s3::querystringauthgenerator->new($aws_access_key_id, $aws_secret_access_key);
print $conn->create_bucket($bucket_name)->message, \n;
my $data ;
file: while(1) {
    my $n = sysread(stdin, $data, 1024 * 1024, length($data));
    if ($n 0) {
        print stderr error reading input: $!\n;
        exit 1;
使用时: ./put_obj_s3 test.jpg /test.jpg
相关资料：
http://www.perl.com/lpt/a/1002
http://docs.amazonwebservices.com/amazons3/latest/gsg/