Re: Need to print bucket and filename which is uploaded on S3 storage

I’m assuming that “line 16” is this one:

my @buckets = @{$conn->buckets->{buckets} || []};
[download]

Now, the documentation for the Amazon::S3::buckets method says it “Returns undef on error, else HASHREF of results.” So you need to test for an undef return value before attempting to dereference the hash reference. For example:

my $result = $conn->buckets();
my @buckets;
   @buckets = @{ $result->{buckets} } if defined $result;
[download]

This way, if the call to buckets() returns undef, no dereference is attempted and @buckets remains unchanged as an empty list.

Hope that helps,

Athanasius <°(((>< contra mundum Iustus alius egestas vitae, eros Piratica,

Comment on Re: Need to print bucket and filename which is uploaded on S3 storage Select or Download Code

Replies are listed 'Best First'.
Re^2: Need to print bucket and filename which is uploaded on S3 storage by coolsaurabh (Acolyte) on Aug 21, 2019 at 07:59 UTC
The output of this script is blank. `#!/opt/perl/bin/perl 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 }); my $bucket = $s3->bucket($bucketName); $bucket->add_key_filename( $file_name, $file_name, { content_type => "text/plain", } ); my $result = $s3->buckets(); my @buckets; @buckets = @{ $result->{buckets} } if defined $result;` [download]	[reply] [d/l]
Re^3: Need to print bucket and filename which is uploaded on S3 storage by Corion (Patriarch) on Aug 21, 2019 at 08:00 UTC
That means there was an error returned by Amazon. Have you checked the errors in `$s3->err` and `$s3->errstr`? Also, maybe you have not created any buckets yet?	[reply] [d/l] [select]
Re^4: Need to print bucket and filename which is uploaded on S3 storage by coolsaurabh (Acolyte) on Aug 21, 2019 at 08:08 UTC
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)"	[reply] [d/l]
Re^5: Need to print bucket and filename which is uploaded on S3 storage by Corion (Patriarch) on Aug 21, 2019 at 08:12 UTC
Re^6: Need to print bucket and filename which is uploaded on S3 storage by coolsaurabh (Acolyte) on Aug 21, 2019 at 10:09 UTC
Some notes below your chosen depth have not been shown here
Re^3: Need to print bucket and filename which is uploaded on S3 storage by Anonymous Monk on Aug 21, 2019 at 11:51 UTC
the script has no calls to "print" or "say", so why would you expect non-blank output?	[reply]
Re^2: Need to print bucket and filename which is uploaded on S3 storage by coolsaurabh (Acolyte) on Aug 21, 2019 at 07:53 UTC
Thanks for the response. It means the script which I ran to upload the file on S3 didn't worked else it should have printed the bucket name isn't it????	[reply]
Re^3: Need to print bucket and filename which is uploaded on S3 storage by Corion (Patriarch) on Aug 21, 2019 at 07:58 UTC
You never check the result of `->add_key_filename`. Maybe that is a good point to start? Also, have you verified that your bucket "forest-upload" exists?	[reply] [d/l]
Re^3: Need to print bucket and filename which is uploaded on S3 storage by Anonymous Monk on Aug 21, 2019 at 11:53 UTC
the new script doesn't have this line, so it won't print anything: `print $bucket->bucket . "\t" . $bucket->creation_date . "\n";` [download] unless i just don't understand the code at all...	[reply] [d/l]


Keep It Simple, Stupid
	PerlMonks