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`;
#$r=~s/^.*查询]//s;
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;
#print "---".$&."---".$1;
my %pic=(
        "晴"=>"32",
        "阴"=>"26",
        "雨"=>"40",
        "雾"=>"19",
        "雪"=>"15",
);
`notify-send -u critical -i '/home/exp/媒体/图标●/png/天气/$pic{$1}.png' '$w 天气' \"$_\"`;

代码： 全选

● g w-w ~/.fvwm/config 
Key w A 4 Exec exec $[script]w-w天气查询.pl -n