作者WalkingIce (会走路的冰块)
看板perl
标题Re: [问题] 抓取网页字串
时间Sun May 13 14:39:00 2007
※ 引述《insea (感觉)》之铭言：
: #!/usr/bin/perl
: use LWP::Simple;
: $doc = get 'http://www.cwb.gov.tw/V5/forecast/taiwan/week.htm';
: print $doc;
: < >
: 如果只要得到
: 5/13 5/14 5/15 5/16 5/17 5/18 5/19
: 갠 星期日 星期一 星期二 星期三 星期四 星期五 星期六
: 北部地区 .. .. .. .. .. .. ..
: 中部地区 .. .. .. .. .. .. ..
: 南部地区 .. .. .. .. .. .. ..
: .. 是天气情况 例如 多云..之类的
: 接下来的程式码该怎麽写呢?
: 是用if去比对後抓取字串吗? 我东漏一个西漏一个的...
: 麻烦了 谢谢
我用 Regular Expression 去作
walkingice@walkingice:~$ cat test.pl
#!/usr/bin/perl
use LWP::Simple;
$doc = get '
http://www.cwb.gov.tw/V5/forecast/taiwan/week.htm';
$doc =~ s/(.+)<img.+alt="(.+?)".+?">(.+)/$1$2$3/g;
print $doc;
其实就只是把
<td align=center valign=middle><img src="/V5/symbol/symbol09.gif" alt="多云转
阴阵雨或雷雨" title="多云转阴阵雨或雷雨"><BR>22~28</td>
替换成
<td align=center valign=middle>多云转阴阵雨或雷雨<BR>22~28</td>
不知道是不是你需要的
--
我想你会衰成这样都是我害的
---- Tizzy Mac
紧张的麦金塔？这是谁(．＿．?)
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.104.231.155