7 my $bucket = 'defaria-aws.com';
9 sub get_remote_objects ($) {
12 my (%remote_objects, $token, $truncated);
15 my $response = $s3->ListObjectsV2(
17 ($token ? (ContinuationToken => $token) : ()),
20 for (@{$response->{Contents}}) {
21 $remote_objects{$_->{Key}} = Time::Piece->strptime($_->{LastModified}, '%Y-%m-%dT%T.000Z')->epoch;
24 if ($response->{isTruncated}) {
25 $token = $response->{NextContinuationToken};
30 return \%remote_objects;
31 } # get_remote_objects
33 # Let's get the files in the S3 bucket
34 my $s3 = Paws->service('S3', region => 'us-west-1');
35 my $remote_objects = get_remote_objects($s3);
37 for (keys %$remote_objects) {