【求助】manager要求写一perl的程序作为邮件客户端，小弟不会啊

各位高手，小弟刚踏上工作岗位不久，现在manager要求写一个perl的程序作为邮件客户端，来读取公司邮件服务器上面的某个特定email地址的邮件，并且parse出该邮件内容中的http://开头的一个.ide文件（其实是个病毒数据库文件，我需要编个perl提取该.ide文件)，然后用unix script来更新。

unix scripts小弟写了很多了，可是小弟不懂perl啊，那个邮件的perl程序怎么写啊，烦请各位高手帮助！

谢谢

不懂就别装傻充愣，
赶紧实话实说，让 manager 调派一个别的岗位。安排别的同事去做这件事。

版主大大，我人在多伦多，西人公司工作，是签了合约的，不能随便调的。能不能帮帮偶啊，谢谢！

[quote]原帖由 "javaleo"]版主大大，我人在多伦多，西人公司工作，是签了合约的，不能随便调的。能不能帮帮偶啊，谢谢！[/quote 发表：

哦，原来是这样啊。
可是我现在手头也很忙，只好让你再等等别人了。

谢谢flw,偶潜水已久，上学时对perl一直是不闻不问，不理不采，直到最近工作后才知道其好处，原来北美这么多人用perl啊，可是我manager也不想写这个，只好我写了。偶决定，以后多向大家学习，特别是有个带墨镜的，特别酷的大哥叫apile，更是我心中的偶像。。。。

好滴好滴，我E文还不错，可能以后会给大家翻译翻译科技文章吧；但现在，我的问题怎么还没有高手帮忙啊@_@

看看Mail:OP3Client有没有帮助

其实有点编程经验，一天能把perl的基础部分学了，特别是选着自己需要的学，一天就能完成你manager的任务了
破釜沉舟总是会收到一想不到的收获，况且你也不能一直依赖别人啊。加油！
那时候有什么不懂的再问也不迟

就是CPAN上面的吗？以前还真没用过CPAN啊，first time, first love....

呵呵
我刚写完的

看看有没有用

顺便帮忙指正一下错误

my $pop = Net:OP3->;new($ServerName);
if($pop->;login($MAILNAME,$MAILPASSWD) >;0)
{
    my $msgnums = $pop->;list; # hashref of msgnum =>; size
        print "msgnums: $msgnums\n";
    foreach my $msgnum (keys %$msgnums)
    {
        my $msg = $pop->;get($msgnum);
                   my         $strSendAddress ;
                foreach my $tmpmsg ( @$msg )
                {
                        my $iStartPos1 = index($tmpmsg,"From:",0);
                        print "tmpmsg: $tmpmsg\n";
                        if($iStartPos1 >;=0)
            {
                                print "tmpmsg: $tmpmsg\n";
                                $strSendAddress = FindMailAddress($tmpmsg);
}
sub FindMailAddress
{
        my $mailAddress = $_[0];
        my $iEndPos1 =index($mailAddress,'@');
        if ($iEndPos1 == -1)
        {
                last;
        }
        my $FirstName = substr($mailAddress,0,$iEndPos1);
        my $FirstTemp = $FirstName;
        my $i;
        while(my $temp = chop($FirstName))
        {
                if (($temp ge 'a' && $temp le 'z') || ($temp ge 0 && $temp le 9) || ($temp ge 'A' && $temp le 'Z') || $temp eq '_' || $temp eq '-' )
                {
                        $i++;
                }
                else
                {
                        last;
                }
        }
        if ($i == 0)
        {
                last;
        }
        my $TrueFirstName = substr($FirstTemp,$iEndPos1-$i,$iEndPos1);
        my $k;
        while (my $temp1 = substr($mailAddress,$iEndPos1+$k+1,1))
        {
                if (($temp1 ge 'a' && $temp1 le 'z') || ($temp1 ge 0 && $temp1 le 9) || ($temp1 ge 'A' && $temp1 le 'Z') || $temp1 eq '_' || $temp1 eq '-'||$temp1 eq '.' )
                {
                        $k++;
                }
                else
                {
                        last;
                }
        }
        if($k == 0)
        {
                last;
        }
        my $TrueLastName = substr($mailAddress,$iEndPos1+1,$k);
        my $mail = $TrueFirstName . '@' . $TrueLastName;
        return $mail;
}


多多指教
谢谢