Wonx2WonX.pl 289 B

1234567891011121314151617
  1. #!/usr/bin/perl
  2. while ($filename = shift(@ARGV)) {
  3. open(RFILE, "< $filename");
  4. open(WFILE, "> $filename.tmp");
  5. while (<RFILE>) {
  6. if (/Wonx/) {
  7. print $_;
  8. s/Wonx/WonX/g;
  9. print $_;
  10. }
  11. print WFILE $_;
  12. }
  13. close(RFILE);
  14. close(WFILE);
  15. system("mv $filename.tmp $filename");
  16. }