每天一个tcl脚本-第7天

题目：写一个函数将某类文本中出现“OBS”字符后的再遇到的LAYER信息更改，例如

MACRO XXX
   CLASS BLOCK ;
   SIZE 200 200 ;
   PIN  XXX ；
   PORT 
     LAYER ME1 ;
      RECT 0 0 100 100 ；
   END
   OBS
      LAYER ME1 ；
      RECT 0 0 50 50 ;
END XXX 

按照题目更改后的文本应为

MACRO XXX
   CLASS BLOCK ;
   SIZE 200 200 ;
   PIN  XXX ；
   PORT 
     LAYER ME1 ;
      RECT 0 0 100 100 ；
   END
   OBS
      LAYER ME1 SPACING 0.5 ；
      REC