Ubuntu中文论坛

代码： 全选

use 5.010;
$city = $ARGV[0] ? $ARGV[0] : "常熟";
$para = $ARGV[1] ? $ARGV[1] : "-LOCAL";
$_ = `w3m -cookie -dump "http://www.google.com.hk/search?q=tq+$city" 2> /dev/null`;

# 去掉无用信息
s@.*?天气@@s;
die "城市名称有误。\n" if ! s@北京市专业气象台.*@@s; # 判断是否有天气信息

if($para eq "-LOCAL")
{
# 当前
        say "当前[$city]天气\n$2\t$1\n$3\n湿度:$4\n" if /([\-0-9]+ \/ [\-0-9]+°C)\n当前：([^\n]+)\n([^\n]+)\n湿度：(\d+%)/s;
}
else{
        if($para == "-FUTURE"){
        #say "今天:$2\t$1" if /\s+今日\n\s+([^\n]+)\n\s+(\d+ \/ \d+°C)/s;
                say "周一:$2\n\t$1" if /\s+周一\n\s+([^\n]+)\n\s+([\-0-9]+ \/ [\-0-9]+°C)/s;
                say "周二:$2\n\t$1" if /\s+周二\n\s+([^\n]+)\n\s+([\-0-9]+ \/ [\-0-9]+°C)/s;
                say "周三:$2\n\t$1" if /\s+周三\n\s+([^\n]+)\n\s+([\-0-9]+ \/ [\-0-9]+°C)/s;
                say "周四:$2\n\t$1" if /\s+周四\n\s+([^\n]+)\n\s+([\-0-9]+ \/ [\-0-9]+°C)/s;
                say "周五:$2\n\t$1" if /\s+周五\n\s+([^\n]+)\n\s+([\-0-9]+ \/ [\-0-9]+°C)/s;
                say "周六:$2\n\t$1" if /\s+周六\n\s+([^\n]+)\n\s+([\-0-9]+ \/ [\-0-9]+°C)/s;
                say "周日:$2\n\t$1" if /\s+周日\n\s+([^\n]+)\n\s+([\-0-9]+ \/ [\-0-9]+°C)/s;
        }
}

代码： 全选

${font SimSun-ExtB:size=14}${color 3399ff}${goto 95}${execi 1800 perl ~/.conky/weather.pl 常熟 -LOCAL}
${font SimSun-ExtB:size=8}${color 00ff5f}${goto 90}${execi 1800 perl ~/.conky/weather.pl 常熟 -FUTURE}

代码： 全选

else { if (xxx) { xxx } }

代码： 全选

elsif (xxx) { xxx }