菜鸟请教Mail::POP3Client问题

legendpan

运行下面的代码得到错误结果。条件：我邮箱有三封新EMAIL。
代码如下：

1. 
   
2. #!/usr/bin/perl -w
   
3. use Mail::POP3Client;
   
4. $mail=new Mail::POP3Client("legendpan","abcd","mail.mail1.com");
   
5. if($mail->Count){
   
6.         print "You have ",$mail->Count," new message(s).\n";
   
7.         print "Storing message(s) to disk.\n";
   
8.         open FILEHANDLE,">file.txt";
   
9.         for($loop_index=1;$loop_index<=$mail->Count;$loop_index++){
   
10.                 print FILEHANDLE $mail->HeadAndBody($loop_index);
    
11.         }
    
12.         close FILEHANDLE;
    
13. }
    

复制代码

----------------------------------------------------------------------------------------------------

[root@openflow ~]# ./POP3Client.pl
You have -1 new message(s).
Storing message(s) to disk.
[root@openflow ~]# ./POP3Client.pl
Use of uninitialized value in pattern match (m//) at /usr/lib/perl5/site_perl/5.8.5/Mail/POP3Client.pm line 1075, <GEN0> line 2.
You have -1 new message(s).
Storing message(s) to disk.


请大虾指点。谢谢

[ 本帖最后由 legendpan 于 2007-5-29 12:41 编辑 ]

legendpan

ding 上去！

legendpan

无言！

[ 本帖最后由 legendpan 于 2007-5-30 07:10 编辑 ]