From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <olvin@rambler.ru>
Message-ID: <4215C59B.1010407@rambler.ru>
Date: Fri, 18 Feb 2005 12:38:19 +0200
From: Olvin <olvin@rambler.ru>
User-Agent: Mozilla Thunderbird 0.6 (X11/20040511)
X-Accept-Language: en-us, en
MIME-Version: 1.0
To: community@altlinux.ru
Subject: [Comm] =?KOI8-R?Q?=E4=CF=C2=C1=D7=CC=C5=CE=C9=C5_=D0=CF=CC=D8=DA?=
	=?KOI8-R?Q?=CF=D7=C1=D4=C5=CC=D1_=D7_=C7=D2=D5=D0=D0=D5?=
Content-Type: text/plain; charset=KOI8-R; format=flowed
Content-Transfer-Encoding: 8bit
X-Auth-User: olvin, whoson: (null)
X-BeenThere: community@altlinux.ru
X-Mailman-Version: 2.1.5
Precedence: list
Reply-To: community@altlinux.ru
List-Id: Mailing list for ALT Linux users <community.altlinux.ru>
List-Unsubscribe: <https://lists.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://lists.altlinux.ru/pipermail/community>
List-Post: <mailto:community@altlinux.ru>
List-Help: <mailto:community-request@altlinux.ru?subject=help>
List-Subscribe: <https://lists.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Fri, 18 Feb 2005 10:37:42 -0000
Archived-At: <http://lore.altlinux.org/community/4215C59B.1010407@rambler.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

Для сабжа в 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;

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