恕刪前文，
: 我試著用loop去處理
: while($tmp =~ m/\|%.*?(?=\|%)/s){
: do something I want with $&...
: $tmp = $';
^^ 我想，這裡才是效能很差的主因，
這種預設變數在文件上有說他的效能不彰，
建議是以 () 起來，用 $1 or $2 做賦值
: $count++;
: }
: print $count."\n";
: 理論上是做到了.. 可是實際上效能出奇的差
: 主要在於 $tmp =$' 這裡是賦值運算
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 210.240.172.81