From the doc:
### Print out all user defined labels my @labels = $gmail->get_labels(); foreach ( @labels ) { print "Label: '" . $_ . "'\n"; }
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"; } } } }
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.
In reply to Re: How to Fetch Gmail
by ww
in thread How to Fetch Gmail
by lalitbans
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |