Daily Archives: 2005-02-10

宜蘭新聞

#!/usr/bin/perl
# 聯禾有線電視宜蘭新聞資料抓取

use Encode::TW;
use LWP::Simple;
use HTML::Parse;
use HTML::Element;
use URI::URL;
#判斷中文斷行用
use Lingua::ZH::Wrap qw(wrap $columns $overflow);

#輸入欄寬
$columns = 65;
$overflow = 1;

$list_base = “http://www.e-lan.net.tw/new/”;

#新聞資料主介面網頁 == http://www.e-lan.net.tw/new/qq.asp
$html = get($list_base.”qq.asp”);
$parsed_html = HTML::Parse::parse_html($html);

for (@{ $parsed_html->extract_links((“a”)) }) {
$link = $_->[0];
$url = new URI::URL $link;
$full_url = $url->abs($ARGV[0]);
#取出 $html 中的超連結,判斷是新聞內容者(Detail.asp)才進一步處理
if ($full_url =~ /Detail/){
$news_entry = $list_base.$full_url;
$news_fetch = parse_html(get ($news_entry))->as_text;

#輸出處理
$news_fetch =~ s/xa0//g; #將 A0H 濾掉
$news_fetch =~ s/(d{2,4}/d{1,2}/d{1,2})/n$1n/g; #將日期換行
$news_fetch =~ s/..首頁/nn/g; #將”回首頁”濾掉
$news_fetch =~ s/oncontextmenu=”window.event.returnvalue=false”//g;

#印出輸出結果,可以修改後產生精華區或布啦布啦的
print “n”.wrap(” “, ” “, $news_fetch).”n”;
}
}

目前資網中心的網站是活的

斷線有很大的可能性是因為電力的問題,否則如果只是網路設備斷線,不會使網頁主機活了之後 BBS 仍是掛的。

而 BBS 如果又因為斷電問題,就又卡在天殺的 Press F1 那邊而進不了 OS。我和黃青山學長已經為此跑了好幾次中心,這也是我感到無奈的起因。試想中心的人可以無視 BBS 死活,直至有局外人(你可以把「局」解釋為宜蘭縣教育局)特地跑去重開機器方能重新上線,這算什麼?誰來告訴我,這到底算什麼?