sys2wonx.pl 306 B

1234567891011121314
  1. #!/usr/bin/perl
  2. while ($FILENAME = shift(@ARGV)) {
  3. open (RFILE, "< $FILENAME");
  4. open (WFILE, "> $FILENAME.tmp");
  5. while (<RFILE>) {
  6. s/^(\s*\#\s*include\s*)[\<\"]sys\/(.+\.h)[\>\"]/$1\"wonx_include\/$2\"/i;
  7. print WFILE $_;
  8. }
  9. close (RFILE);
  10. close (WFILE);
  11. system("mv $FILENAME.tmp $FILENAME");
  12. }