Re: search and replace

[Иван Лох <loh@1917.com>]

On Fri, Apr 27, 2007 at 01:39:42PM +0300, Doroshok Stanislav wrote:
> > > файлов.. :(
> >
> > man sed или man ed
> >
> > > в одном каталоге рекурсивно
> >
> > man find
> perl -pi -e  's/SEARCH/FOUND/g'  

100000 запускать perl? Если уж на нем, то как-то так:


#!/usr/bin/perl -w

use File::Find;
find(\&scanner,$ARGV[0]);

sub scanner{ 
	my $file=$_; return if -d $file;
	open I,"<$file"; open O,">$file.bak";
	while(<I>){
		s/xxx/$file/ if /xxx/;
		print O;
	}
	close I;
	unlink $file;
	link $file.bak" $file;
	unlink $file.bak;
}