整合一下取天预报和发邮件的程序

lbk90032190

从网上搜到的取天气预报和发邮件的例子（有的是从本论坛找的，不算我的原创呵呵，同时谢谢各位热心发贴的同行），
整合了一下，可以做成一个定时任务， 每天给自己发一封天气预报的邮件。大家只要换成自己的邮件和用户名密码即可。
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 . "yyyy";
}
$m=~tr/;/\n/s;
$m =~ s/yyyy/\n/g;
################################################
my $mail_server = 'smtp.163.com';
my $mail_from = '32190@163.com';
my $mail_to = 'asfa@163.com';
my $uname='sfafa';
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("From: $mail_from\n");
$smtp->datasend("Reply-To: $mail_from\n");
$smtp->datasend("Return-Path: $mail_from\n");
$smtp->datasend("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;