forum.lissyara.su

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

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 

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

Net:DNS

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

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

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

#!/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;