用Perl查询天气并发送邮件

use Net::SMTP;
use Net::SMTP_auth;
use MIME::Base64;
###############################################
use LWP::Simple;
use strict;
use Encode;
use HTML::TableExtract;
use DBI;
$| = 1;
my $html=get("http://www.weather.com.cn/html/weather/101010100.shtml");
my $tree = HTML::TableExtract->new( attribs => { class => 'yuBaoTable' } );
$tree->parse($html);
my $i=0;
my $msg="";
my $m="";
$| = 1;
foreach my $ts ($tree->tables) {
    if ($i<2){
        foreach my $row ($ts->rows) {
            $msg=join(',', @$row);
            $msg = encode("gb2312", $msg);
           my @aa=split(/,/,$msg);
           foreach my $item(@aa){
             if ($item){
                $m=$m.$item.";";
                $m=~s/\s//g;
             }
           }
       }
        $i++;
    }
    $m = $m . "lbk";
}
$m=~tr/;/\n/s;
$m =~ s/lbk/\n/g;
################################################
my $mail_server = 'smtp.163.com';
my $mail_from = '[e-mail]';
my $mail_to = '[e-mail]';
my $uname='libingkui0102';
my $passwd='*********';

#开启Debug模式
#$smtp = Net::SMTP->new("$mail_server" , Debug => 1);
#普通发送模式
my $smtp = Net::SMTP->new("$mail_server" );
$smtp->auth("$uname", "$passwd");
$smtp->mail("$mail_from");
$smtp->to("$mail_to");
$smtp->data();
$smtp->datasend("To: $mail_from\n");
#$smtp->datasend("Cc: '[e-mail]', '[e-mail]'\n");
$smtp->datasend("From: $mail_from\n");
$smtp->datasend("Reply-To: $mail_from\n");
$smtp->datasend("Return-Path: $mail_from\n");
$smtp->datasend("Subject: 1 Subject\n");
#$smtp->datasend("Content-Type: text/plain; ChartSet=gb2312");
$smtp->datasend("\n");

# Send your email content
#$smtp->datasend("Hello world!世界， 你好！\n");
$smtp->datasend("$m");
$smtp->datasend("\n");
$smtp->dataend();
$smtp->quit;

 

评论

1 楼 bzhao 2011-08-22  

it works!