blob: d4cd2f20bf85d3c1df73567e5a50d26212549440 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
#!/usr/bin/perl
use lib '/home/bbs/bin/';
use LocalVars;
# 每農曆初一, 十五就會跑一次 $ARGV[0]
# 資料來源 http://tw.weathers.yahoo.com/
open FH, "$LYNX -source http://tw.weathers.yahoo.com/ | grep '民國'|";
$din = <FH>;
close FH;
($month, $day) = $din =~ /農曆 (.*?)月 (.*?)日/;
system("@ARGV") if( $day eq '一' || $day eq '一十五' );
|