日期: 2005 年 2 月 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 死活,直至有局外人(你可以把「局」解釋為宜蘭縣教育局)特地跑去重開機器方能重新上線,這算什麼?誰來告訴我,這到底算什麼?