in reply to One-line shell script for find and replace

the easiest way would be to do something like 'find ./ |  xargs perl -i -pwe 's/find/replace/g'
Alternativly see File::Find


Evan Carroll
www.EvanCarroll.com

Replies are listed 'Best First'.
Re^2: One-line shell script for find and replace
by blazar (Canon) on Oct 05, 2005 at 08:14 UTC
    But this will call perl over and over again which may not be desirable. Of course it may be the best way (up to doing it entirely in perl) to do it, if the files are too many. Update: thanks to EvanCarroll for pointing out my error.

    Incidentally I was a big user of xargs myself, until someone pointed out to me the -exec parameter, although I find its syntax to be somewhat awkward -- but I can live with that.

[reply]
[d/l]
      This simply isn't true. Read the docs.
      find ./ | xargs perl -e'print "\n@ARGV"'
      Should output one line with all of the arguements sent to perl.

      Alternativly, just for the sake of putting this out there, this can be done without xargs
      find ./ -exec perl -e'print "\n@ARGV" {} \;
      But this would execute numerous copies of perl.

      But, fear not! for find has an altnative syntax!
      find ./ -exec perl -e'print "\n@ARGV"' {} +
      Which is also probably the best way to acomplish this task.


      Evan Carroll
      www.EvanCarroll.com
[reply]
[d/l]
[select]
        This simply isn't true. Read the docs.
        find ./ | xargs perl -e'print "\n@ARGV"'
        Should output one line with all of the arguements sent to perl.
        You're perfectly right. I knew but just forgot it. Indeed this is the reason why at some time I got used to do stuff like 
        find . -type f | while read f; do stuff with $f; done

        [download]
        whenever I suspected that the argument list may have been too long. (Now I generally stick with -exec.)
        Alternativly, just for the sake of putting this out there, this can be done without xargs
        find ./ -exec perl -e'print "\n@ARGV" {} \;
        But this would execute numerous copies of perl.
        Indeed. It was me to point this out in the first place, as you can see in the post you're replying to.
        But fear not for find hsa an altnative syntax!
        find ./ -exec perl -e'print "\n@ARGV"' {} +
        Which is also probably the best way to acomplish this task.
        Interesting. This I authentically didn't know. Of course it's all out there in the manpages, I guess. But generally you learn "this kinda things" as people tell you about them...
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom