docs/developer/RegExp/tstscrpt.pl

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