diff options
author | kcwu <kcwu@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2005-08-16 22:34:11 +0800 |
---|---|---|
committer | kcwu <kcwu@63ad8ddf-47c3-0310-b6dd-a9e9d9715204> | 2005-08-16 22:34:11 +0800 |
commit | 1598828725cc3a14f4e9a1a18b4212ad808a3516 (patch) | |
tree | 2cb820bce71131ecf10acb43babf9a601cfb22a8 /util/weather.perl | |
parent | 472675788b286d9ce07d478c03b1f526048f682f (diff) | |
download | pttbbs-1598828725cc3a14f4e9a1a18b4212ad808a3516.tar pttbbs-1598828725cc3a14f4e9a1a18b4212ad808a3516.tar.gz pttbbs-1598828725cc3a14f4e9a1a18b4212ad808a3516.tar.bz2 pttbbs-1598828725cc3a14f4e9a1a18b4212ad808a3516.tar.lz pttbbs-1598828725cc3a14f4e9a1a18b4212ad808a3516.tar.xz pttbbs-1598828725cc3a14f4e9a1a18b4212ad808a3516.tar.zst pttbbs-1598828725cc3a14f4e9a1a18b4212ad808a3516.zip |
it's stupid to call c program in perl for string manipulation.
git-svn-id: http://opensvn.csie.org/pttbbs/trunk/pttbbs@3050 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'util/weather.perl')
-rw-r--r-- | util/weather.perl | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/util/weather.perl b/util/weather.perl index 0c3ce208..36d773d7 100644 --- a/util/weather.perl +++ b/util/weather.perl @@ -20,7 +20,6 @@ sub weather_report # Header # ¤º®e -#open(WEATHER, "$LYNX -assume_charset=big5 -assume_local_charset=big5 -dump http://www.cwb.gov.tw/V3.0/weather/text/W03.htm |"); open(WEATHER, "$LYNX -assume_charset=big5 -assume_local_charset=big5 -dump -nolist $link|"); while (<WEATHER>) { |