Ubuntu中文论坛

代码： 全选

● cat w-w天气查询.pl 
#!/usr/bin/perl

use Getopt::Long;
GetOptions('1' => \$oneline, 'n'=>\$notify);

#$w=$ARGV[0]?$ARGV[0]:"长沙";
#$_=`w3m -no-cookie -dump http://ipiciq.com/Weather/Default.aspx?q=$w`;
$_=`w3m -dump http://ipiciq.com/Weather/`;

s/.*?°C//s; s/•.*//s;           #去掉前后的无用信息
s/\n/ /g; s/(%|°C)/\1\n/sg;     #规整为每天1行
s/\ +/ /g; s/\ \/\ /\//g;       # 多余的空格
s/^$//mg;
s/^/ ►/mg,s/\n//g if($oneline);
if(/网络故障/){$_="拼音或中文城市名不正确。原提示：".$_;}

if(! $notify){print " ".$w.$_; exit 0;}
/当前：(.*?)\ /s; $str=$1;
my %pic=("晴"=>"32","阴"=>"26","雨"=>"40","雾"=>"19","雪"=>"15",);
foreach (keys %pic){$str=$_,last if($str=~/$_/);}
`notify-send -u critical -i '/home/exp/媒体/图标●/png/天气/$pic{$str}.png' '$w ' \"$_\"`;

代码： 全选

#!/usr/bin/perl -w
use strict;

if ( !defined( $ARGV[0] ) ) {
    print "Usage: weather.pl cityname\n";
    exit 1;
}

my $curlcmd = "curl --connect-timeout 5 -s -S";
my $response =
  `$curlcmd -d cityinfo=$ARGV[0] http://search.weather.com.cn/static/url2.php`;

exit 2 if ($?);

$response =~ m[(\d{9})];
if ( $1 == "999999999" ) {
    print "no such a city.\n";
    exit;
}

$response = `$curlcmd http://www.weather.com.cn/html/weather_en/$1.shtml`;
exit 2 if ($?);

my $weather = "Today is ";

$response =~
m[<dt style="float:left; width:300px;">Welcome!&nbsp;&nbsp;&nbsp;&nbsp;(.+) </dt>];
$weather .= "<$1>*";

$response =~ m[<title>(\S+)];
$weather .= " <$1>*";

@_ = ( $response =~ m[<div class="fut_weatherbox">.*?</div>]sg );
if ( @_ < 3 ) {
    print "No forecast available.\n";
    exit;
}
my %match;
for ( 1 .. 3 ) {
    $_ = shift @_;
m{<h3>(?<date>.+?)</h3>.*?<h4[^>]+?>(?<weather>.+)</h4>.*?<h4.+High:(?<hightemp>[^<]+)</h4>.*?<h4.+Low:(?<lowtemp>[^>]+)</h4>}s;
    %match = %+;
    $match{weather} =~ s[<br/>][]g;
    $weather .=
      " $match{date}: $match{weather}, $match{lowtemp} ~ $match{hightemp}*";

}
printf "%s\n", $weather;

代码： 全选

#!/bin/bash
city="$1"; i=0
weather=("晴" "阴" "雨" "雾" "雪" "多云")
icons=("32" "26" "40" "19" "15" "26")
if [ "$city" ]; then
	AGENT="User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.7) Gecko/2009030814 Iceweasel/3.0.9 (Debian-3.0.91)"
	url="http://www.google.cn/search?q=tq%20${city}"
	weather_text="$(wget --user-agent="$AGENT" -q "$url" -O - \
	| sed 's|alt=|<>|g;s|title=|<|g;s|</nobr>| |g;s|<[^>]*>||g;s|北京市专业气象台|\n|;s|今日.*|\n&|;s|°C||' \
	| grep "°C")"
	if [ "$weather_text" ]; then
		weather_today="`echo $weather_text|awk -F'"' '{print $2}'`"
		while [ "$i" -lt ${#weather[@]} ]; do
			[ "`echo $weather_today|grep ${weather[$i]}`" ] && icon="${icons[$i]}" && break
			((i++))
		done
		notify-send -u critical -i "./icons/$icon.png" "$city" "`echo "$weather_text" | tr '"' ' ' | sed 's|  | |g;s|°C |&\n|g'`"
	else
		notify-send -u critical "未能获取天气"
	fi
fi