Apply multiple find and replace regex queries on multiple .txt files using a Perl code

Question

I\'m trying to find a Perl on Windows code that enables me to apply multiple find and replace regex queries on multiple files in a specific directory. I\'m able to apply mul

Answer 1

Your question isn't very descriptive. Does this do what you want?

Edited to work on Windows

perl -i.bak -pe"BEGIN {@ARGV = map glob, @ARGV} s/a/b/g; s/c/d/g; s/e/f/g; " My/Files/Directory/*.txt

---

Update

Unless you have only a few changes to make it is probably best if you put the substitution commands in a file, like this

changes.pl

BEGIN {
    @ARGV = map glob("\"$_\""), @ARGV;
}

s/a/b/g;
s/c/d/g;
s/e/f/g;

Then you can run it on a set of files on the command line like this

perl -i.bak -p changes.pl My/Files/Directory/*.txt

Answer 2

Here is a basic perl program (perhaps name it myreplacers.pl) that can do that:

#!/usr/bin/perl

use strict;
use warnings;

while(<>) {
  s/regex1/replace1/;
  s/regex2/replace2/;
  print;
}

Alter this with appropriate regular expressions and replacement texts and run it like perl myreplacers.pl file1 file2 etc.