Re^3: How to Fetch Gmail

OP's code is print $label[0] (and no semicolon, tho that's no big deal here)

As pointed out by lyklev below, $label[0] can be empty.

Example code, from the doc, suggests foreaching the array.

Comment on Re^3: How to Fetch Gmail Select or Download Code

Replies are listed 'Best First'.
Re^4: How to Fetch Gmail by cjb (Friar) on Jan 18, 2011 at 14:30 UTC
Having run both the OPs version and yours they both come back with 0. `use warnings; use strict; use Mail::Webmail::Gmail; my $gmail = Mail::Webmail::Gmail->new( username => '', password => '', proxy_name => 'localho +st:3128' ); my @labels = $gmail->get_labels(); print "Number of labels returned: ".scalar (@labels)."\n"; foreach my $label (@labels) { print "Label: $label\n"; }` [download] From my test above, it would appear that `Mail::Webmail::Gmail->new()` completes without error even with a known bad password. 2011-01-19 09:29 GMT - restored (in part) after discussion with ww	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: How to Fetch Gmail
by cjb (Friar) on Jan 18, 2011 at 14:30 UTC

use warnings;
use strict;
use Mail::Webmail::Gmail;

my $gmail = Mail::Webmail::Gmail->new( 
                username => '', password => '', proxy_name => 'localho
+st:3128'
            );

my @labels = $gmail->get_labels();

print "Number of labels returned: ".scalar (@labels)."\n";
    
foreach my $label (@labels) {
    print "Label: $label\n";
}
[download]

From my test above, it would appear that Mail::Webmail::Gmail->new() completes without error even with a known bad password.

2011-01-19 09:29 GMT - restored (in part) after discussion with ww

[reply]
[d/l]
[select]