A função chown
do Perl espera um uid / gid numérico em vez de um nome de usuário / grupo. Veja perldoc -f chown .
Para obter o uid do nome de usuário e do gid do nome do grupo, você pode usar as funções getpwnam
e getgrnam
da seguinte forma:
my $uid = getpwnam $user_name;
my $gid = getgrnam $group_name;
chown $uid, $gid, $file_name;