Помогите с перловкой, пожалуйста.

[AnrDaemon]

Пытаю тут amavis на предмет излечения от непроходимой тупости конфигов.
$myhostname удачно прочитал, а вот с local_domains_acl засада.

Строчка для получения нужной настройки от postfix -

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

chomp($mydestination = `postconf -h mydestination`);Но в $mydestination получается строка.
Эту строку надо бы разбить на кусочки по пробелам с запятыми.

В гугле накопал вариант

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

chomp(my $mydestination = `postconf -h mydestination`);
@local_domains_acl = $mydestination =~ /\w+(?:[\.\-]\w+)*/g;
Оно будет работать?
Может, есть короче решение? Без промежуточной переменной?

[unimix]

Как вариант:

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

@local_domains_acl = grep {!/^$/} split /\s{0,},\s+|\n/, `postconf -h mydestination`;
Есть лишнее, но это так, на всякий случай.
Также можно добавить ещё чего-нибудь, например сортировку.

[AnrDaemon]

Это как-то уже совсем перлово... >.<

[unimix]

На самом деле не всё так сложно. В примере используется конвеер справа налево.

1. cначала команда split(/PATTERN/, EXPR) делит строку в массив (в примере скобки опущены);
2. затем массив передаётся команде grep {/PATTERN/}, которая отфильтровывает строки в соответствии с шаблоном;
3. оставшиеся строки сохраняются в массиве @local_domains_acl.

Если перед grep написать sort, то массив, прошедший фильтр grep, ещё и отсортируется (@local_domains_acl = sort grep ...)

[AnrDaemon]

Не знаю, на сколько верно, но однострочка сработала.

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

@local_domains_acl = `postconf -h mydestination` =~ /\w+(?:[\.\-]\w+)*/g;