Re: [問題] 抓取網頁字串
※ 引述《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
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 2 之 3 篇):