Question

我在尝试将用户列表导入Zentyal 3.4时遇到问题。

我使用的脚本是：

#!/usr/bin/perl

use strict;
use warnings;

use EBox;
use EBox::Users::User;

EBox::init();

my $usersMod = EBox::Global->getInstance()->modInstance('users');
my $parent = $usersMod->objectFromDN('ou=Promo 2022,ou=Alumnos,'.$usersMod->ldap->dn());

my $file = 'users.csv';
open (my $USERS, $file) or die "Can't open '$file': $!";

while (my $line = <$USERS>) {
    chomp ($line);
    my ($username, $givenname, $surname, $password) = split(';', $line);
    EBox::Users::User->create(
    uid => $username,
    parent => $parent,
    givenname => $givenname,
    surname => $surname,
    password => $password,
    );
}

close ($USERS);

1;

我第一次使用它时效果很好但是现在它给出了一个＆＃34; Permission denied＆＃34;尝试打开文件时出错。

要打开的文件和脚本都具有0777权限，因此任何用户都应该能够随心所欲地做任何事情。

脚本需要以sudo（我做过）运行。

Answer 1

在评论中由OP解决。

相关文件具有权限0777。但是，包含文件夹/home/angardi已设置为0700。

因此，虽然我可以阅读文件，但perl没有阅读权限。

权限被拒绝 - 关闭文件句柄上的readline（）

1 个答案: