模块：Net::POP3 - Post Office Protocol 3 Client class<br>下面是pod文档里的例子：<br><pre> <span class="keyword">use</span> <span class="variable">Net::POP3</span><span class="operator">;</span>
</pre>
<pre> <span class="comment"># Constructors</span><br> <span class="variable">$pop</span> <span class="operator">=</span> <span class="variable">Net::POP3</span><span class="operator">-></span><span class="variable">
new</span><span class="operator">(</span><span class="string">'pop3host'</span><span class="operator">);</span><br> <span class="variable">$pop</span> <span class="operator">=</span> <span class="variable">Net::POP3
</span><span class="operator">-></span><span class="variable">new</span><span class="operator">(</span><span class="string">'pop3host'</span><span class="operator">,</span> <span class="string">Timeout</span> <span class="operator">
=></span> <span class="number">60</span><span class="operator">);</span>
</pre>
<pre> <span class="keyword">if</span> <span class="operator">(</span><span class="variable">$pop</span><span class="operator">-></span><span class="variable">login</span><span class="operator">(</span><span class="variable">
$username</span><span class="operator">,</span> <span class="variable">$password</span><span class="operator">)</span> <span class="operator">></span> <span class="number">0</span><span class="operator">)</span> <span class="operator">
{</span><br> <span class="keyword">my</span> <span class="variable">$msgnums</span> <span class="operator">=</span> <span class="variable">$pop</span><span class="operator">-></span><span class="variable">list</span>
<span class="operator">;</span> <span class="comment"># hashref of msgnum => size</span><br> <span class="keyword">foreach</span> <span class="keyword">my</span> <span class="variable">$msgnum</span> <span class="operator">
(</span><span class="keyword">keys</span> <span class="variable">%$msgnums</span><span class="operator">)</span> <span class="operator">{</span><br> <span class="keyword">my</span> <span class="variable">$msg</span>
<span class="operator">=</span> <span class="variable">$pop</span><span class="operator">-></span><span class="variable">get</span><span class="operator">(</span><span class="variable">$msgnum</span><span class="operator">
);</span><br> <span class="keyword">print</span> <span class="variable">@$msg</span><span class="operator">;</span><br> <span class="variable">$pop</span><span class="operator">-></span><span class="keyword">
delete</span><span class="operator">(</span><span class="variable">$msgnum</span><span class="operator">);</span><br> <span class="operator">}</span><br> <span class="operator">}</span>
</pre>
<pre> <span class="variable">$pop</span><span class="operator">-></span><span class="variable">quit</span><span class="operator">;</span>
</pre><br><br><br><div class="gmail_quote">On Dec 12, 2007 6:29 PM, Steven Zhu <<a href="mailto:stevenzyk@gmail.com">stevenzyk@gmail.com</a>> wrote:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
我想读取邮箱中的邮件，提取邮件中的信息，不知道如何可以读取邮件哪<br></blockquote></div><br clear="all"><br>-- <br>如果觉得无聊，您不妨访问Google Reader消遣 <a href="http://www.google.com/reader/view">http://www.google.com/reader/view</a><br>要尝试黑版本Google，请访问 <a href="http://www.google.com/custom?q=&sa=Search&client=pub-4021907304270164&forid=1&channel=7519554017&ie=UTF-8&oe=UTF-8&cof=GALT%3A%23FF9900%3BGL%3A1%3BDIV%3A%230033FF%3BVLC%3ACC9900%3BAH%3Acenter%3BBGC%3A000000%3BLBGC%3A000000%3BALC%3AFFFFFF%3BLC%3AFFFFFF%3BT%3ACCCCCC%3BGFNT%3A33CC00%3BGIMP%3A33CC00%3BFORID%3A1%3B&hl=en">
http://www.google.com/custom?q=&sa=Search&client=pub-4021907304270164&forid=1&channel=7519554017&ie=UTF-8&oe=UTF-8&cof=GALT%3A%23FF9900%3BGL%3A1%3BDIV%3A%230033FF%3BVLC%3ACC9900%3BAH%3Acenter%3BBGC%3A000000%3BLBGC%3A000000%3BALC%3AFFFFFF%3BLC%3AFFFFFF%3BT%3ACCCCCC%3BGFNT%3A33CC00%3BGIMP%3A33CC00%3BFORID%3A1%3B&hl=en
</a>