problème de n après une regexp ???

hello,

J'ai un soucis avec un script que je viens d'écrire et je n'arrive pas a
corriger le problème.
J'essaye d'obtenir le "primary group" d'un utilisateur unix (en utilisant la
commande id)

cette commande retourne ceci :
id myuser
returns uid=12345(myuser) gid=54321(mygroup)

Pour récupérer le groupe, j'ai écris une regexp :
my $pri_grp = `id myuser`;
$pri_grp =~ s/^.+gid=.+\((.+)\)$/$1/;

le problème c'esy que PARFOIS $pri_grp se termine par un retour à la ligne
(\n ?), je ne comprend pas pourquoi. J'ai essayé de faire un chomp sur la
variable mais ca n'arrange rien.

du coup mon code ne fonctionne pas toujours.... j'ai mis une copie
ci-dessous.
Il s'agit d'une fontion récursive, qui récupère le "owner" des dossier
parents et qui ajoute un nouveau groupe à ces utilisateurs.

PS: J'utilise Perl 5.8.2 sur Solaris 5.8



#!/usr/bin/perl

my $parent_vapth = "/dev/thematics/dir1/dir12/dir121/dir1211";
my $th_apth = "/dev/thematics";
my $usr_group = "grp12111";

sub setGroups {
my $br_path = $_[0];
my $th_path = $_[1];
my $usr_grp = $_[2];
my $err_cnt = $_[3];

return false if $br_path !~ m#^${th_path}/.+$#;

# ls -od to get the owner of the directory
my $ls = `ls -od $br_path`;
my @ls = split(/\s+/,$ls);

# find primary group for user (using id)
my $pri_grp = `id $ls[2]`;
chomp($pri_grp); #test
$pri_grp =~ s/^.+gid=.+\((.+)\)$/$1/;
chomp($pri_grp); #test

### HERE I GOT A PROBLEM, IT SEEMS THAT SOMETIMES $pri_grp ENDS WITH
A '\n'
print "DEBUG: primary group is ***${pri_grp}***\n";

# list the groups the user belongs (using groups)
my $grp_lst = `groups $ls[2]`;
chomp($grp_lst);

# exclude the primary group and add the new group
@grp_lst = split(' ',$grp_lst);
$grp_lst = "";

foreach my $curr_grp (@grp_lst) {
next if $curr_grp eq $pri_grp;
$grp_lst .= "${curr_grp},";
}

$grp_lst .= "$usr_grp";

my $rc = system("usermod -G $grp_lst $ls[2]");

if ($rc ne 0) {
print "usermod -G $grp_lst $ls[2] failed. return code is
$rc\n";
}

# go one level up
$br_path =~ m#(.+)/.+$#;
$br_path = $1;

return setGroups($br_path, $th_path, $usr_grp, $err_cnt);
}

setGroups($parent_vpath, $thematics_path, $user_group, 0);