dir /b/S | perl -pe "BEGIN { chomp(@ARGV = <STDIN>) } s#\bGPP\b#Arjun#
+i;" -i.bak
[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

dir /b/S *.dsp | perl -e 'BEGIN{@ARGV=map{ chomp and $_ }<ARGV>}' \
                      -i.bak -pe "s#\bGPP\b#Arjun#i;"
[download]

_________
broquaint

Have to go to n-levels in the directory. This will only work for the current directory.

By the way, I get the message "Can't open *.dsp: Invalid argument.". Remember this is windows :-(

Saurabh

use G;

Without additional options it'll glob the usual way, if you do it like this

perl -MG=R -pi.bak -e"s#\bGPP\b#Arjun#i;" *.dsp
[download]

it'll glob recursively.

P.S.: You can install the module by PPM from http://jenda.krynicky.cz/perl

Jenda
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live.
   -- Rick Osborne

Edit by castaway: Closed small tag in signature

Finally, I wrote a script using File::Recurse but a one liner would be cool. Thanks in advance.

Saurabh

for /R %f in (*.dsp) do perl -ibak -pe "s#\bGPP\b#Arjun#i;" %f

Not quite xargs ;-) 'for' will do much more than it used to. The '/R' makes for look recursively in each subdirectory.

perl -le"BEGIN{@ARGV=glob shift;}print for @ARGV;" *.dsp
perl -i.bak -pe"BEGIN{@ARGV=glob shift;}s#\bGPP\b#Arjun#i" *.dsp
[download]

MJD says you can't just make shit up and expect the computer to know what you mean, retardo! I run a Win32 PPM repository for perl 5.6x+5.8x. I take requests. ** The Third rule of perl club is a statement of fact: pod is sexy.

As for "dir /b/S", personally I prefer to use unix utils that have been ported to windows (e.g. by Cygwin, Delorian or GNU) such as "find", "ls", "bash", etc.