perl one-liner查詢網頁資料--以103年指考放榜為例

perl -MLWP::Simple -e "for $i(21011601..21011842){getprint('http://fast.uac.edu.tw/'.$i);}" | perl -MHTML::Entities -e "while (<>){print decode_entities( \"$1\n\" )if m/(准考證號 :.*?)
<\/BODY/;}"

1. 這是在win8上執行的形式，其它平台可能要做些修正
2. 已安裝LWP及HTML模組
3. 使用pipe將第一段程式的結果導向到第二段，此時可以while(<>) 做逐行讀取的動作