sys2wonx.perl 125 B

12345678
  1. #!PATH_TO_PERL
  2. while (<STDIN>) {
  3. s/^(\s*\#\s*include\s*)[\<\"]sys\/(.+\.h)[\>\"]/$1\"wonx\/$2\"/i;
  4. print $_;
  5. }
  6. exit (0);