Вывод подстроки на экран

[SFireMan]

Помогите плз. Необходимо вывести все подстроки из некоторой строки, удовлетворяющие условиям:
начинаются с символов @@@ и заканчиваются пробелом или концом строки.
Пример:
вход: some text, aaa=@@@z, bbb=@@@x and ccc=@@@a
выход: @@@z,@@@x,@@@a
Как реализовать?
Потом данную подстроку будет необходимо заменить другой.
Как реализовать замену?

[ArcFi]

SFireMan,
google > sed examples OR patterns

Код: [Выделить]

man sed

[burgua]

Тейнсли. Программирование в bash/sed/awk

[Yurror]

Код: [Выделить]

#!/usr/bin/perl

use warnings;
use strict;

foreach my $line (<STDIN>) {
        my @ar = $line =~ /(\@{3}\w+)[\,\ \n]/g;
                print join(',', @ar), "\n";
}
Подаёшь свой текст на стандартный вход программе. На стандартном выводе получаешь желаемое.
P.S. для обработки текстов Perl и создавался, так что никакие извращения bash+sed+awk с ним не сравнятся

[burgua]

ASM rullez!

[SFireMan]

Yurror большое спасибо за Perl, в яблочко - то что мне нужно, ибо запарили извраты с sed/awk - голова щас взорвется.
Надо было сразу сказать цель сего действия. Поробую объеяснить...
Дело в том что пишу типо простенького прекомпиллятора для конфигов, цель - есть набор конфигов(окло 30-40 штук) в которых встречаются однотипные значения(IP ареса, параметры соединений и т.д. и т.п.)
Хочу все параметры хранить в едином файле(переменные bash однозначно т.к. к ним нужно еще обращаться и из bash скриптов), чтобы было удобно редактировать и переходить к новым настройкам.
Таким образом передо мной встала задача нужен код на bash + perl.
Задача кода на bash - запустить perl скрипт передать ему на вход содержимое конфига, при запросе perl скрипта значения переменной передать ее значения.
Соответственно задача perl скрипта - найти переменные в STDIN, запросить значение c STDIN, вывести строку на STDOUT.

сейчас чуток передал perl скрипт:

Код: [Выделить]

#!/usr/bin/perl

foreach my $line (<STDIN>) {
        my @list = $line =~ /(\@{3}\w+)[\,\ \n]/g;
        foreach my $element (@list) {
                $name=substr($element,3);
                print "$name\n";
                $val=<STDIN>;
        }
}
Помогите идеей/кодом как доработать до желаемого.

[Yurror]

найти переменные в STDIN, запросить значение c STDIN
Ты как нибудь определись что ты будешь делать со стандартным вводом. Он один.
Можно конечно брать и то и то из него.  Но половину с клавы, половину из файла не получится...