[SMV]

Код:

 #!/usr/bin/perl -w
 
 my $str=$ARGV[0];
 my $path=$ARGV[1];
 my @grep_out=`grep $str $path/*`;
 my ($file,$s);
 
 foreach $file (@grep_out){
     ($file,$s) = split(':', $file); 
     print "rm $file...\n";
     unlink $file;
 }

Можно, например, так.

[mar]

man find
/delete

Код:

 -delete
             Delete found files and/or directories.  Always returns true.
             This executes from the current working directory as find recurses
             down the tree.  It will not attempt to delete a filename with a
             ``/'' character in its pathname relative to ``.'' for security
             reasons.  Depth-first traversal processing is implied by this
             option.

э-э-э вообще-то я всегда боюсь так чохом, но если уж очень хочется, то что-то такое:

Код:

find my_path/ -name "qwerty*" -delete

или, только файлы:

Код:

find my_path/ -name "qwerty*" -type f -delete

[pi-a-ner]

SMV
Спасибо, на перле я и сам лёгкостью могу это решить. А вот без перла...
mar
Вы, видимо, не совсем поняли: "qwerty" должно быть не в названии, а в содержимом файла.

[mar]

Пардон, торможу
Забавно:

Код:

find ../test -type f -print | xargs grep qwerty

отрабатывает правильно, а с -delete сносит все :/ Надо подумать

[pi-a-ner]

mar
Хм, казалось, с find я уже все варианты перепробовал, а вот так у меня получилось:

Код:

find ../test -type f -print | xargs grep -ls qwerty| xargs rm -f

Спасибо.

[mar]

pi-a-ner
работает И впрямь я вчера сильно тормозила, пардон