http://www.perlmonks.org?node_id=11104782


in reply to Re^3: Need to print bucket and filename which is uploaded on S3 storage
in thread Need to print bucket and filename which is uploaded on S3 storage

the script returned some HASH value when I am trying to print $s3 value. 
use Amazon::S3;
my $file_name = "filename.txt";
my $bucketName = "forest-upload";

my $s3 = Amazon::S3->new({
 aws_access_key_id => "XX",
 aws_secret_access_key => "XX",
 retry => 1
});

print $s3;

[download]
Output is "Amazon::S3=HASH(0xafac08)"
  • Comment on Re^4: Need to print bucket and filename which is uploaded on S3 storage
  • Download Code

Replies are listed 'Best First'.
Re^5: Need to print bucket and filename which is uploaded on S3 storage
by Corion (Pope) on Aug 21, 2019 at 08:12 UTC

    Yes.

    But you have no error checking here:

    my $result = $s3->buckets();

    [download]

    If $result is not defined, which happens when there is an error, you ignore that.

    Instead of ignoring that, check the errors there. This is documented in Amazon::S3. Maybe the following helps:

    my $result = $s3->buckets();
if( ! $result ) {
    warn "There was an error when looking at the existing buckets:";
    warn join " - ", $s3->err, $s3->errstr;
    die "Cannot continue.";
};
...

    [download]
[reply]
[d/l]
[select]
      add_bucket is failing when trying to add the same. 
      use Amazon::S3;
my $file_name = "filename.txt";
my $bucketName = "forest-upload";

my $s3 = Amazon::S3->new({
 aws_access_key_id => "XX",
 aws_secret_access_key => "XX",
 retry => 1
});

print $s3;
print "\n";
my $result = $s3->buckets();
my $bucket_name = 'Test-Bucket';
my $bucket = $s3->add_bucket( { bucket => $bucket_name } ) or die $s3-
+>errstr ;

      [download]
      Out of this script is Amazon::S3=HASH(0x25dac28) Died at Amazon_bucket.pl line 18.
[reply]
[d/l]
        Died at Amazon_bucket.pl line 18.

        Your script doesn't have 18 lines therefore the script you have shown is not the script you are running.

[reply]

In Section Seekers of Perl Wisdom