>>>>> "Luciano" == Luciano Miguel Ferreira Rocha <[EMAIL PROTECTED]> writes:
Luciano> I would just use:
Luciano> find . -type f -print0 | xargs -0 perl -spi -e
's/cgi-bin\/some_scr.pl/mod-perl\/some_scr.pl/g;'
Ewww. Why two processes?
use File::Find;
@ARGV = ();
find sub { push @ARGV, $File::Find::name if -f }, ".";
$^I = ""; # or ".bak"
while (<>) {
s/cgi-bin(\/some_scr.pl)/mod-perl$1/g;
print;
}
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<[EMAIL PROTECTED]> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
