передача grep path

[Николя223]

Подскажите пожалуйста, как заставить grep передать дальше путь к файлу, 

grep -r "<item>" | xargs ...  то дальше греп передает то что он нашел, а не путь.   точно также если вместо xargs использовать -exec

[Igor Schnaider]

man grep
Флаг -l вероятно?

-l, --files-with-matches
	Only the names of files containing selected lines are written to standard output.  grep will only search a
    	file until a match has been found, making searches potentially less expensive.  Pathnames are listed once
    	per file searched.  If the standard input is searched, the string ``(standard input)'' is written.

 

[Николя223]

ага спс теперь не ругается
 

написал вот такое. наверно в регулярке косяк. просто этим sed не пользовался никогда, похоже sed не отрабатывает. 

find /test/www/*/www/ -type f -name "*.tpl" | xargs grep -l '<!-- items -->' | xargs sed -i  -r 's/(<!-- items  -->)(.*)(<!-- end items -->)/<!-- items_mark -->/g'

[Igor Schnaider]

Может, дело в том, что для xargs нужно применить флажок -n 1. Он так по одной строке будет из вывода предыдущей команды брать, иначе все сразу

... | xargs -n 1 grep...

 

[Николя223]

не. в регулярке проблемма. пришел к этому.  но почему то если между метками есть перевод строки, то не срабатывает. если нет - то заменяется

find /test/www/*/www/ -type f -name "*.tpl" | xargs grep -l '<!-- items -->' | xargs sed -i  -r 's/<!-- items -->.*<!-- end items -->/<!-- items_mark -->/g'

[Николя223]

как я понимаю sed работает построчно. попытаюсь на awk переделать

[Igor Schnaider]

20 минут назад, Николя223 сказал:

как я понимаю sed работает построчно. попытаюсь на awk переделать

Мне кажется, проще написать скрипт, чем с командной строкой возиться :-)

Я знаю, что в Perl есть модификаторы \sm, который позволяют с multiline строкой работать.

То есть получиться что-то типа

# $html - сюда просто скормить весь файл сразу
$html =~ s{<!-- items -->.*?<!-- end items -->}{<!-- blablabla -->}smgi;

 

Edited September 8, 2016 by Igor Schnaider

[Николя223]

Да. тоже думаю про перл или питон. 

но вот что получилось 

 find /test/www/*/www/ -type f -name "*.tpl" | xargs grep -l '<!-- items  -->' | xargs sed -i -r  '/<!-- items -->/,/<!-- end items -->/ { //!d }'

C заменой первой строки на метку пока не удалось, но так тоже пойдет.  - удаляет содержимое между метками

Ну и чтобы найти метки, если пространство между ними пусто, тоже можно грепом, 

[Igor Schnaider]

Я немного увлекся :-) У меня вот такое получилось:

find . -type f -exec grep -li '<!-- items -->' {} \; | xargs perl rename.pl

И сам rename.pl:

#!/usr/bin/perl -w
use strict;

foreach my $filename (@ARGV) {
    # Skip the script itself
    next if $filename =~ m/$0$/;

    # Read
    open my $FH, "<", $filename or die "Error: $!\n";
        my $html = join("", <$FH>);
    close $FH;

    # Write
    open $FH, ">", $filename or die "Error: $!\n";
        $html =~ s{<!-- items -->.*?<!-- end items -->}{<!-- items_mark -->}smg;
        print $FH $html;
    close $FH;
}

 

[Николя223]

О. спс) 

протестю как нибудь вечером