linux - 权限被拒绝 - 关闭文件句柄上的 readline()

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;

我第一次使用它时它运行良好，但现在它在尝试打开文件时给出“权限被拒绝”错误。

打算打开的文件和脚本都具有0777权限，因此任何用户都应该能够对他们做任何事情。

该脚本需要作为 sudo 运行（我这样做了）。

Answer 1

OP在评论中解决了它。

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

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