如何解决如何通过使用perl传递S3存储桶名称作为参数来获取S3存储桶对象/密钥?
是否可以通过使用Perl传递S3存储桶名称作为参数来检索S3存储桶对象/键?
解决方法
从Perl与AWS进行交互的标准(巨大!)方法是使用Paws。
实际上,该分发的示例包括一个名为s3-listall.pl
的示例,我认为它非常类似于您想要的。
#!/usr/bin/env perl
use v5.10;
use Paws;
my $bucket = $ARGV[0] or die "Usage $0 bucket\n";
my $s3 = Paws->service('S3',region => 'eu-west-1');
my $res = $s3->ListAllObjects(
Bucket => $bucket
);
foreach my $object (@{ $res->Contents }) {
say $object->Key;
}