自己拿去改吧

[bbs@btbbs bin]$ more weather.pl
#!/usr/bin/perl
$HOME="/home/bbs";
system("cd $HOME/tmp/; /usr/bin/wget -c -Y off http://www1.cei.gov.cn/serve
/index/index.asp &> /dev/null");
open(IN, "$HOME/tmp/index.asp") || die("can't open index.asp");

while (<IN>){
    chomp($_);
    $temp=$temp.$_;
};

close(IN);

unlink("$HOME/tmp/index.asp");

@temp_weather = ($temp=~/<font color=\"#ff6600\">(.*?)<\/font>/ig);
$temp = $temp_weather[0];
@W = ($temp=~/<div>(.*?)<\/div>/ig);

($sec,$min,$hour,$mday,$mon)=localtime(time);
$newmon = $mon + 1;
open(OUT,">$HOME/0Announce/weather") || die("cannot open $HOME/0Announce/
weather");
print OUT "";
print OUT "\n\n                      身体是 BT 的本钱，请关注天气变化。。
。\n\n";
print OUT
"                  北京地区未来 36 小时天气预报($newmon月$mday日$hour:$min
:$sec)\n\n\n";
print OUT
"$W[0]\n\n$W[1]\n\n";
print OUT
"$W[2]\n\n$W[3]\n\n";
print OUT
"$W[4]\n\n$W[5]\n";
print OUT "\n数据来源: http://serve.cei.gov.cn   程序设计: soff\n\n";
close(OUT);

【 在 soff (一入二调三升四谋) 的大作中提到: 】
:         perl 更简单
--
FROM 211.68.12.*