我写了个有趣的程序，大家帮我测试一下

CODE:

#!/usr/bin/perl
#
use strict;
use warnings;
use Net::POP3;
use Net::SMTP;
use MIME::Base64;
use MIME::QuotedPrint;
use HTML::TreeBuilder;
use LWP::UserAgent;
use Encode qw/encode decode/;
my $pop = Net::POP3->new('pop.sina.com') or die "pop failed";
my $username = 'yourusername';
my $password = 'yourpasswd';


while( 1 ){
                chdir("/home/wuyunzhou/mail/pop3");
                my $pop = Net::POP3->new('pop.sina.com') or die "pop failed";
                $pop->login($username,$password);
                $pop->reset();
                my $msgnums = $pop->list;
                while( my($num,$title) = each %$msgnums ){
                        my $msg = $pop->get($num);
                        my($subject,$title,$to);
                        foreach my $line(@$msg){
                                        if($line =~ /^Return-Path:\s*\<(.*?)\>/i){
                                                        $to = $1;
                                        }elsif($line =~ /^Subject/i){
                                                        $subject = $line;
                                        }
                        }
                                        $subject =~ s/^(.*?:)//;
                                        $subject =~ s/^\s+//;
                                        $subject =~ s/\s+$//;

                                        if( $subject =~ /=\?(.+?)\?(.)\?(.+?)\?=/ ){
                                                my $charset = $1;
                                                my $encode = $2;
                                                $title = $3;

                                                if( $encode =~ /b/i ){
                                                                $title = decode_base64($title);
                                                }elsif( $encode =~ /q/i ){
                                                                $title = decode_qp($title);
                                                }

                                        $title = encode('gb2312',decode("$charset",$title));

                                        }else{
                                                $title = $subject;
                                        }

                                        my $q = unpack('H*',$title);
                                        $q =~ s/(..)/%\U$1/g;
                                        &q_weather($q,$to);

                        $pop->delete($num);
                }

                $pop->quit();
                sleep(15);
                #last;
}

sub q_weather(){
                my $city = $_[0];
                my $to = $_[1];

                open(LOG,'>>log.txt');
                print LOG $to;
                print LOG "\n";
                close LOG;

                print "get weather from $city to $to";
                my $ua = LWP::UserAgent->new();
                $ua->timeout(60);
                my $req = HTTP::Request->new(GET=>"http://php.weather.sina.com.cn/search.php?city=$city");
                my $res = $ua->request($req);
                my $content = $res->content;

                $content =~ s/\&nbsp;/ /g;
                my $tree = HTML::TreeBuilder->new();
                $tree->parse($content);

                my $body = undef;
                my @div = $tree->look_down(
                                        _tag => 'div',
                                        class => 'Weather3D',
                                        );

                foreach my $div(@div){
                                        $body .= $div->as_text();
                                        $body .= "\n";
                }
                #print $body;
                my $dot = '。';
                $body =~ s/$dot/$dot \n/g;
                $tree = $tree->delete;

                #my $smtp = Net::SMTP->new('smtp.sina.com',Timeout=>60,Debug=>1);
                my $smtp = Net::SMTP->new('smtp.sina.com',Timeout=>60);
                $smtp->auth("$username","$passwd");

                $smtp->mail('azhou82@sina.com');
                $smtp->to("$to");
                $smtp->data();
                $smtp->datasend("To: $to\n");
                $smtp->datasend("From: azhou82\@sina.com\n");
                $smtp->datasend("Subject: weather report from mail robot\n");
                $smtp->datasend("\n");
                $smtp->datasend($body);
                $smtp->dataend();
                $smtp->quit;
}

QUOTE:

原帖由 maxxfire 于 2008-1-11 10:33 发表
你丫的，发爆你的邮箱。。