gugod

["吳志揚","楊秋興","鄭文燦","陳水扁","陳致中","韓國瑜","高嘉瑜"]	https://newtalk.tw/news/view/2018-10-04/147896
["吳敦義","宋楚瑜","張忠謀","蔡英文"]	https://newtalk.tw/news/view/2018-10-04/148136
["吳清"]	http://sports.ltn.com.tw/news/breakingnews/2570964
["吳琪銘","吳秉叡","張宏陸","林淑芬","江永昌","沈發惠","羅致政","蘇貞昌","高志鵬"]	https://newtalk.tw/news/view/2018-10-04/148120
["吳祥輝","柯文哲"]	https://newtalk.tw/news/view/2018-10-04/147914
["吳祥輝","柯文哲"]	https://newtalk.tw/news/view/2018-10-04/148079
["姚文智","柯文哲"]	https://newtalk.tw/news/view/2018-10-04/148040
["宋楚瑜","柯文哲"]	https://newtalk.tw/news/view/2018-10-04/147883
["張嘉元"]	https://newtalk.tw/news/view/2018-10-03/147587
["張天欽"]	https://newtalk.tw/news/view/2018-10-04/147701

gugod

http://focustaiwan.tw/
http://hellotw.com/
http://msnews.n.yam.com/
http://news.101media.com.tw/
http://news.tvb.com/
http://tc.news.tnn.tw/
http://www.5ch.com.tw/
http://www.bcc.com.tw/
http://www.cna.com.tw/
http://www.ctitv.com.tw/

gugod

> time cat dict-revised.json > /dev/null
cat dict-revised.json > /dev/null  0.00s user 0.04s system 41% cpu 0.116 total

> cat dict-revised.json | time json_reformat > /dev/null
json_reformat > /dev/null  0.77s user 0.01s system 99% cpu 0.787 total

> cat dict-revised.json | time json-print > /dev/null
json-print > /dev/null  50.82s user 0.50s system 99% cpu 51.736 total

gugod

se strict;

close(STDERR);
close(STDOUT);

open OUT1, ">:utf8", "out1.txt";
open OUT2, ">:utf8", "out2.txt";

system("perl", "-Mutf8", "-c", "-e", 'my $a = 42');

gugod

#!/bin/bash

function wait_until_job_vacancy() {
    local limit=${1:-4}
    while [[ ! "$(jobs -p | wc -l)" -lt $limit ]]
    do
        sleep 1
    done
}

gugod

• TODAYさんのツイート: "Taiwan earthquake toll rises to 9 dead, with dozens missing. "It wasn't a normal earthquake, there have been more than 100 aftershocks," said Wu Ching-hua, 62, a native of Hualien https://t.co/bnxCAgeIeY… https://t.co/D9cwvKNko4" . TODAY 認証済みアカウント @ TODAYonline Get the latest local and international news from TODAY, the first major Singapore newspaper to make a full mobile-first transition. http://www. todayonline.com
• Global BCさんのツイート: "Fish ponds inside restaurants in Taiwan demonstrate the intensity of the deadly earthquake that hit the region on Tuesday. https://t.co/vXJMt3GRm3" . 位置情報付きでツイート ウェブサイトやサードパーティアプリケーションから、都市や正確な現在地などの位置情報をツイートに追加できます。ツイートの位置情報履歴はいつでも削除できます。 詳細はこちら
• [2 Canadians found dead in hotel partially toppled by Taiwan earthquake | Toronto Star](https://www.thestar.com/news/world/2018/02/09/2-canadians-found-dead-in-hotel-partially-toppled-by-taiwan-earthquake.

gugod

外媒報導

• https://earthquake-report.com/2018/02/06/very-strong-earthquake-taiwan-february-6-2018/

• https://headlines.yahoo.co.jp/hl?a=20180207-00000000-jij_afp-int 台湾東部で6日深夜、マグニチュード（M）6.4の地震があり、ホテルを含む複数の建物が倒壊・損壊し、台湾政府によると2人が死亡、200人以上が負傷した。

gugod

use strict;
use utf8;
my ($a,$а,$α)= (1,2,3);
if($a==1 && $а==2 && $α==3) {
    print "Hello World\n";
}

gugod

use strict;
use utf8;
my ($aﾠ,$a,$aﾠﾠ) = (1,2,3);
if($aﾠ==1 && $a== 2 && $aﾠﾠ==3) {
    print "Hello World\n";
}

gugod

use strict;

package ObjA {
    sub TIESCALAR { bless [$_[1]], $_[0] }
    sub FETCH { $_[0][0]++; };
};

tie my $a, 'ObjA', 1;

if ($a == 1 && $a == 2 && $a == 3) {