Bash, Perl или Sed, вставить в новую строку после найденной фразы

Question

Bash, Perl или Sed, вставить в новую строку после найденной фразы

Хорошо, я думаю, мне нужно что-то, что будет делать следующее:

Найдите эту строку кода в /var/lib/asterisk/bin/retrieve_conf:

$engineinfo = engine_getinfo();

Вставить следующие две строки:

$engineinfo['engine']="asterisk";

$engineinfo['version']="1.6.2.11";

Заранее спасибо,
Джо

588 6

perl bash awk sed

6 ответов:

Comments

Ничего не найдено.

Sorpigal · Accepted Answer · 2011-07-20 17:42:10

Вы могли бы сделать это так
sed -ne '/$engineinfo = engine_getinfo();/a\'$'\n''$engineinfo['engine']="asterisk";\'$'\n''$engineinfo['version']="1.6.2.11";'$'\n'';p' /var/lib/asterisk/bin/retrieve_conf
Добавьте -i для изменения на месте, как только вы подтвердите, что это работает.
Что он делает и как он работает?
Сначала мы говорим sed, чтобы он соответствовал строке, содержащей вашу строку. На этой совпадающей строке мы затем выполним команду a, которая называется "добавить текст".

Синтаксис команды sed a равен
a\
line of text\
another line
;
Обратите внимание, что литеральные новые строки являются частью этого синтаксиса. Чтобы сделать все это одной строкой (и сохранить copy-paste способность) вместо буквальных новых строк я использовал $'\n' , который скажет bash или zsh вставить реальную новую строку на место. Кавычки, необходимые для выполнения этой работы, немного сложны: вам нужно выйти из одинарных кавычек, чтобы вы могли интерпретировать $'\n' с помощью bash, затем вам нужно повторно ввести строку с одинарными кавычками, чтобы bash не интерпретировал остальную часть вашего ввода.
Редактировать: обновлен, чтобы добавить обе строки в одну команду append.

Eugene Yarmash · Accepted Answer · 2011-07-20 15:44:29

Вы можете использовать Perl и Tie::File (включено в дистрибутив Perl):

use Tie::File;
tie my @array, 'Tie::File', "/var/lib/asterisk/bin/retrieve_conf" or die $!; 
for (0..$#array) {
    if ($array[$_] =~ /\$engineinfo = engine_getinfo\(\);/) {
        splice @array, $_+1, 0, q{$engineinfo['engine']="asterisk"; $engineinfo['version']="1.6.2.11";};
        last;
    }   
}

Sorpigal · Accepted Answer · 2011-07-20 19:14:21

Просто ради симметрии вот ответ с использованием awk.
awk '{ if(/\$engineinfo = engine_getinfo;/) print $0"\n$engineinfo['\''engine'\'']=\"asterisk\";\n$engineinfo['\''version'\'']=\"1.6.2.11\"" ; else  print $0 }' in.txt

max · Accepted Answer · 2011-07-20 20:40:51

Вы также можете использовать ed:

# cf. http://wiki.bash-hackers.org/howto/edit-ed
cat <<-'EOF' | ed -s /var/lib/asterisk/bin/retrieve_conf
H
/\$engineinfo = engine_getinfo();/a
$engineinfo['engine']="asterisk";
$engineinfo['version']="1.6.2.11";
.
wq
EOF

sid_com · Accepted Answer · 2011-07-20 21:06:00

Однострочный Perl:

perl -pE 's|(\$engineinfo) = engine_getinfo\(\);.*\K|\n${1}['\''engine'\'']="asterisk";\n${1}['\''version'\'']="1.6.2.11";|' file

Scott C Wilson · Accepted Answer · 2011-07-20 19:15:17

sed -i  's/$engineinfo = engine_getinfo();/$engineinfo = engine_getinfo();<CTRL V><CNTRL M>$engineinfo['engine']="asterisk"; $engineinfo['version']="1.6.2.11";/' /var/lib/asterisk/bin/retrieve_conf