Re: search and replace

Fri, 27 Apr 2007 06:18:54 -0700 

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;
}


-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]

Ответить