Как найти/заменить и увеличить количество совпадений с помощью sed/awk?

Ответ 1

Я считаю, что поиск файла - не сложная часть для вас. Поэтому я просто перехожу к делу, чтобы выполнить расчет +1. Если у вас gnu sed, это можно сделать следующим образом:

sed -r 's/(.*)(\?cache_version=)([0-9]+)(.*)/echo "\1\2$((\3+1))\4"/ge' file

возьмем пример:

kent$  cat test 
ello
barbaz?cache_version=3fooooo
bye

kent$  sed -r 's/(.*)(\?cache_version=)([0-9]+)(.*)/echo "\1\2$((\3+1))\4"/ge' test     
ello                                                                             
barbaz?cache_version=4fooooo
bye

вы можете добавить опцию -i, если хотите.

изменить

/e позволяет передавать согласованную часть во внешнюю команду и подставлять результат выполнения. Только Gnu sed.

см. этот пример: используются внешние команды/инструменты echo, bc

kent$  echo "result:3*3"|sed -r 's/(result:)(.*)/echo \1$(echo "\2"\|bc)/ge'       

дает результат:

result:9

вы можете использовать другую мощную внешнюю команду, например cut, sed (снова), awk...

Ответ 2

Эта команда perl будет искать все файлы в текущем каталоге (без прохождения через нее, вам понадобится модуль File::Find или аналогичный для этой более сложной задачи) и увеличит число строк, которое соответствует cache_version=. Он использует флаг /e регулярного выражения, которое оценивает замещающую часть.

perl -i.bak -lpe 'BEGIN { sub inc { my ($num) = @_; ++$num } } s/(cache_version=)(\d+)/$1 . (inc($2))/eg' *

Я тестировал его с file в текущем каталоге со следующими данными:

hello
cache_version=3
bye

Он создает резервные копии исходного файла (ls -1):

file
file.bak

И file теперь с помощью:

hello
cache_version=4
bye

Я надеюсь, что это может быть полезно для того, что вы ищете.

UPDATE, чтобы использовать File::Find для перемещения каталогов. Он принимает * как аргумент, но отбрасывает их с найденными с помощью File::Find. Каталог для начала поиска - это текущий запуск script. Он жестко закодирован в строке find( \&wanted, "." ).

perl -MFile::Find -i.bak -lpe '

    BEGIN { 
        sub inc { 
            my ($num) = @_; 
            ++$num 
        }

        sub wanted {
            if ( -f && ! -l ) {  
                push @ARGV, $File::Find::name;
            }
        }

        @ARGV = ();
        find( \&wanted, "." );
    }

    s/(cache_version=)(\d+)/$1 . (inc($2))/eg

' *

Ответ 3

Версия Pure sed:

Эта версия не имеет зависимости от других команд или переменных среды. Он использует явный перенос. Для переноса я использую символ @, но другое имя можно использовать, если хотите. Используйте то, чего нет в вашем исходном файле. Сначала он находит SEARCHSTRING<number> и добавляет @к нему. Он повторяет увеличивающиеся цифры, у которых есть ожидающий перенос (т.е. После него есть символ переноса: [0-9]@) Если 9 был увеличен, этот приращение дает само перенос, и процесс будет повторяться до тех пор, пока не будет больше ожидающих переносов. Наконец, переносы, которые были получены, но не добавлены к цифре, но заменены на 1.

sed "s/SEARCHSTRING[0-9]*[0-9]/&@/g;:a {s/[email protected]/1/g;s/[email protected]/2/g;s/[email protected]/3/g;s/[email protected]/4/g;s/[email protected]/5/g;s/[email protected]/6/g;s/[email protected]/7/g;s/[email protected]/8/g;s/[email protected]/9/g;s/[email protected]/@0/g;t a};s/@/1/g" numbers.txt

Ответ 4

Это некрасиво (я немного ржавый), но здесь начинаем использовать sed:

orig="something1" ;
text=`echo $orig | sed "s/\([^0-9]*\)\([0-9]*\)/\1/"` ;
num=`echo $orig | sed "s/\([^0-9]*\)\([0-9]*\)/\2/"` ;
echo $text$(($num + 1))

С исходным именем файла ($orig) "something1" sed отделяет текст и числовые части от $text и $num, затем они объединяются в последнем разделе с добавленным числом, что приводит к something2.

Просто начало, так как оно не рассматривает случаи с номерами в имени файла или именах без номера в конце, но, надеюсь, помогает с вашей исходной целью использования sed.

Это действительно можно упростить в sed, используя буферы, я полагаю (sed может работать рекурсивно), но я действительно ржавый с этим аспектом.