Net::IMAP::Simple, login(), mailboxes(), select(), get()

在取得中文的Folder时,会出现乱码的情况,

这个问题现在没有解决。英文的Folder则没问题。 

IMAP协议,默认端口为143,可以用telnet登录。

telnet imap.xxx.com 143

2 login user pass

2 list "" *

2 select inbox

...... 

#!/usr/bin/perl 

use strict; 
use Net::IMAP::Simple; 

my $server = new Net::IMAP::Simple( 'imap.0451.com' ); 
$server->login( 'user_name', 'passwd'); 

#show the mailboxs 
#map {print "$_\n";} $server->mailboxes(); 

#show mail's content 
my $n = $server->select( 'inbox' ) or die "no this folder\n"; 
foreach my $msg ( 1..$n ) 
{ 
    my $lines = $server->get( $msg ); 
    print @$lines; 
   print "_________________ Press enter key to view another! ...... __________________\n"; 
   read STDIN, my $key, 1; 
} 

exit 0;


  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值