Re: How to Fetch Gmail

From the doc:

### Print out all user defined labels
    my @labels = $gmail->get_labels();
    foreach ( @labels ) {
        print "Label: '" . $_ . "'\n";
    }
[download]

or, more extensively, for get-and-read scenario:

    my $messages = $gmail->get_messages();

    print "By folder\n";
    foreach ( keys %Mail::Webmail::Gmail::FOLDERS ) {
        print "KEY: $_\n";
        my $messages = $gmail->get_messages( label => $Mail::Webmail::
+Gmail::FOLDERS{ $_ } );
        print "\t$_:\n";
        if ( @{ $messages } ) {
            foreach ( @{ $messages } ) {
                print "\t\t$_->{ 'subject' }\n";
            }
        }
    }

    print "By label\n";
    foreach ( $gmail->get_labels() ) {
        $messages = $gmail->get_messages( label => $_ );
        print "\t$_:\n";
        if ( defined( $messages ) ) {
            if ( @{ $messages } ) {
                foreach ( @{ $messages } ) {
                    print "\t\t$_->{ 'subject' }\n";
                }
            }
        }
    }
[download]

Looks to me as though you didn't check the doc (perldoc Mail::Webmail::Gmail) -- an especially important trick in developing your knowledge of Perl.

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

Replies are listed 'Best First'.
Re^2: How to Fetch Gmail by cjb (Friar) on Jan 18, 2011 at 13:13 UTC
I'm not sure what the difference between your first example and the OPs is? I've run both, and get 0 labels back, which is the OPs problem. I'm also getting 0 back when I use get_messages() What result do you get?	[reply]
Re^3: How to Fetch Gmail by ww (Archbishop) on Jan 18, 2011 at 13:59 UTC
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 `foreach`ing the array.	[reply] [d/l] [select]
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]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks