docs/developer/RegExp/tstscrpt.pl

   1 #!perl\r
   2 rename("brush.c", "brush.c.old");\r
   3 open(FILE, "brush.c.old");\r
   4 open(OFILE, ">brush.c");\r
   5 while(<FILE>)\r
   6 {\r
   7 if($. != 150)\r
   8 {\r
   9 print OFILE;\r
  10 next;\r
  11 }\r
  12 s/Sys_Printf \(/Sys_FPrintf \(SYS_VRB,/;\r
  13 s/Sys_Printf\(/Sys_FPrintf \(SYS_VRB,/;\r
  14 print OFILE;\r
  15 }\r
  16 close(OFILE);\r
  17 close(FILE);