tcl脚本真的比shell脚本解析处理文件效率要高？

[zhongyunde@linux-root ~/hidsp_test]$head thread0.commit_trace.txt -n70

***************************************
*   2015/07/29  21:37:58
*   Thread 0
*   LLSDK, build 209
***************************************

Command line:   -batch -block_btb -log_commit -re_reciprocal a.out

Non zero register reset values

        vliw_cnt = 0x0
        lend0 = 0xffffffff
        lend1 = 0xffffffff
        lend0_svm = 0x1
        lend1_svm = 0x1
        isr1 = 0x40000000
        cpenable = 0x1
        sr_dimf = 0x1
        sr_svm = 0x1
        sr_di = 0x1
        sr_dnmi = 0x1
        sr_btben = 0x1
        sr_btbpf = 0x1

#=Stall=#  cyc = 0x0:   Initial inst pipe fill stall
#=Stall=#  cyc = 0x1:   Initial inst pipe fill stall
#=Stall=#  cyc = 0x2:   Initial inst pipe fill stall
#=Stall=#  cyc = 0x3:   Initial inst pipe fill stall
#=Stall=#  cyc = 0x4:   Initial inst pipe fill stall
#=Stall=#  cyc = 0x5:   Initial inst pipe fill stall
#=Stall=#  cyc = 0x6:   Initial inst pipe fill stall
#=Stall=#  cyc = 0x7:   Initial inst pipe fill stall
#=Stall=#  cyc = 0x8:   Initial inst pipe fill stall
#=Stall=#  cyc = 0x9:   Initial inst pipe fill stall
#=Stall=#  cyc = 0xa:   Initial inst pipe fill stall
#=Stall=#  cyc = 0xb:   Initial inst pipe fill stall
#=Stall=#  cyc = 0xc:   Initial inst pipe fill stall
#=Stall=#  cyc = 0xd:   Initial fetch pipe fill stall
#=Stall=#  cyc = 0xe:   Initial fetch pipe fill stall
#=Stall=#  cyc = 0xf:   Initial fetch pipe fill stall

<01> /*0xd0000000[06]*/ movi32@agx.f a1,0x48180

        vliw_cnt = 0x1
        cyc = 0x10
        latency = 0xf

        a1 = 0x48180  { 0x0 }

<02> /*0xd0000006[03]*/ mov.ssr.a@agx sr,a1

        vliw_cnt = 0x2
        cyc = 0x11

        - sr_tbit = 0x0
        - sr_lf0 = 0x0
        - sr_lf1 = 0x0
        - sr_shl = 0x0
        - sr_dimf = 0x1
        - sr_btben = 0x1
        - sr_btbpf = 0x1
        - sr_iem = 0x0
        sr_di = 0x0  { 0x1 }
        sr_dnmi = 0x0  { 0x1 }
        - sr_ipl = 0x0