Кусок кода на perl

[Dron]

Вобщем есть такой кусок кода:

Код: Выделить всё

my @usergroups = split( /\s/, do { open my $groups, "-|", groups => $user; <$groups> } );
foreach (@usergroups) {
    my $groupmap  = "groupmap.$_";
    my @groupname = $cfg->param($groupmap);
    drive_map(@groupname);
}

Код: Выделить всё

$, = ' ';print @usergroups;

дает такую строчку:

Код: Выделить всё

Domain Users bug 

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

необходимо чтобы foreach получил не Domain User bug а Domain Domain1 Domain2 User User1 User2 bug bug1 bug2

т.е. разобрать @usergroups на составные значения
берем значение на основе его формируем знач знач1 знач2 (например: было bug, стало bug bug1 bug2)
и так для каждого значения....
потом собрать обратно...

Я просто сам перла не знаю, а скрипт надо заставить работать

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[zingel]

Код: Выделить всё

Net:DNS

[Dron]

A причем DNS?

взять список (массив или как это в perl называется) @usergroups
и на основе его сделать другой массив...

например:
в @usergroups есть:
Domain
User
bug

надо:
Domain
Domain1
Domain2
User
User1
User2
bug
bug1
bug2

[ProFTP]

проведи через цикл(ы), и к значниеи добавить 1,2
или сделай 3 массива, потом соедини их

а смысл это делать, напиши просто:

Код: Выделить всё

my @usergroups = (Domain,Domain1,Domain2,User,User1,User2);

или я не понял нафига это надо тебе...

[Dron]

Дело в том, что значения в @usergroups каждый раз разные...
я бы с удовольствием провел через цикл, допустим через foreach (такой вроде есть в perl) но ни синтаксиса, ни как добавлять значения в "@чего-нить" я не знаю... я просто прошу кусок кода, как реализовать схемно я знаю...

[ProFTP]

Код: Выделить всё

#!/usr/bin/perl

use strict;
my @aa=('domain','user','bug');
my @bb=(); my $index=0; my $team;
 foreach $team (@aa) {
   push @bb, $team,$team.'1',$team.'2';
 }
  print @bb;

[Dron]

Огромное спасибо