Find and replace with grep and perl

perlterminal

I'd like to grep and replace specific text in textfiles within a directory and all subdirs. I try the following:

ls -R | egrep '.*\.txt' | perl -i -p -e 's/one.a/two.a/g'

Although grep spits out a list and this executes, I can't seem to get perl to actually write to the files. If possible, I'm interested in learning how to do this without the use of find.

Can anyone spot where I'm going wrong?

Thanks,
jml

Best Answer

There are two minor issues: First, to pipe file names to a perl one-liner in this way, you need to use the xargs command.

Second, you will need to pass the full path to the perl one-liner, because it might be in a subdir, so it would be better to use find.

Here's a working command:

find . -name "*.txt" | xargs perl -i -p -e 's/one.a/two.a/g'
Related Question