求助 谁用过Net：：SMTP帮忙写个简单的例子

搬砖工作者

求帮忙

兰花仙子

sample code already exists in the official manual:
http://search.cpan.org/~gbarr/libnet-1.22/Net/SMTP.pm

wxlfh

建议用MIME::Lite，比较方便。

andy20008

论坛里有一个很全面的帖子，楼主可以搜索一下

malon111

#!/usr/bin/perl -w
#receive email using Mail::POP3Client
use strict;
use IO::File;
use MIME::Parser;
use Mail::POP3Client;

my $dir = 'email';
my $file = new IO::File;
my $parser = new MIME::Parser;
$parser->output_dir( $dir );
my $pop = new Mail::POP3Client( USER     => "xxx",
                                PASSWORD => "yyy",
                                HOST     => "zzz.zzz.zzz.zzz" );
my $j = $pop->Count();
for ( my $i = 1; $i <= $j; $i++ ) {
    print "Now saving raw-message.$i...\n";
    if ( $file->open( "> $dir/raw-message.$i" ) ) {
         $pop->HeadAndBodyToFile( $file, $i );
         $file->close();
    }
}
$pop->Reset();
$pop->Close();
for ( my $i = 1; $i <= $j; $i++ ) {
    print "Now parsing raw-message.$i...\n";
    $parser->parse( IO::File->new( "$dir/raw-message.$i") );
}
#eof