[Comm] Добавление пользователя в группу

[Olvin]

Для сабжа в ALM2.4 сделал скриптики:

#!/bin/sh
#uatg
usermod -G `id $1 | ~/bin/uatg.pl $2` $1

#!/usr/bin/perl
#uatg.pl
$a=<STDIN>;
$a =~ s/\S+\s+\S+\s+//g;
$a =~ s/[^\=]+\=//g;
$a=~s/\d+\(//g;
$a=~s/\)//g;
$a=~s/[\n\r]+//g;
@A = split(/\,/,$a);
foreach $a(@A){
  push(@B,$a);
}
push(@B,$ARGV[0]);
$,=','; print @B;

Думаю, что есть более прямой путь. Какой?