[問題] perl 問題

[jeffreychen ()]

我有一個問問題麻煩大大幫我解答
有一個檔案內容如下:
vector ((xx_xi_rtc, xx_pwc_rstinb, xx_pwc_pc_ref, xx_pwc_wkup, xx_pwc_pseq1,
         xx_pwc_wkup1, xx_pwc_pseq2, xx_pwc_wkup3))
$tset tset1 > 00000000; /*0, 0.00nS*/
$tset tset1 > 00010000; /*0, 0.00nS*/
$tset tset1 > 00001000; /*0, 0.00nS*/
$tset tset1 > 00000100; /*0, 0.00nS*/
八個vector 名為xx_xi_rtc xx_pwc_rstinb xx_pwc_pc_ref xx_pwc_wkup xx_pwc_pseq1
               xx_pwc_wkup1 xx_pwc_pseq2 xx_pwc_wkup3
相對應值為 00000000 00010000 00001000 00000100
若輸入xx_xi_rtc則把四個test test1 中所相對應xx_xi_rtc的0都換成1

請問這樣該如何寫ㄋ?

ps: 上面是簡化例子

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 114.34.221.29
→ abliou:ㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋ
→ xatier:ㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋㄋ