如何使用Perl将图像上传到AmazonS3？

我正在尝试使用Perl将文件上载到S3

根据本模块：

…以下代码将上载文本文件：

# create resource with meta data (attributes)
my $keyname = 'testing.txt';
my $value   = 'T';
$bucket->add_key(
   $keyname, $value,
   {   content_type        => 'text/plain',
       'x-amz-meta-colour' => 'orange',
   }
);

但是，如何将图像（GIF、JPEG、PNG）上载到S3

谢谢

Linda

该代码不会上载文件-它只是将与键“testing.txt”关联的值设置为“t”。如果要上载文件，可以使用以下方法：

该方法的工作原理与add_key类似，只是假定该值为 本地文件系统上的文件名。文件将以流式传输，而不是 然后在一大块内存中加载

比如：

$bucket->add_key_filename(
    'image-key.jpg',
    'local-filename.jpg',
    {
        content_type => 'image/jpeg',
    }
);

根据需要调整内容类型