Question

有人可以解释如何正确引用数组@names和@numbers。目前我收到警告说使用@ names-＆gt; [$ count]已被弃用。我环顾四周，人们说要做名字 - ＆gt; [$ count]但是当我这样做时它说$ names / $ number不存在。

my $ldap = Lib::Phonebook->new();

my (@names, @numbers, $count, $name_number_count);

    @names             = $ldap->list_telephone_account_names();

    @numbers           = $ldap->list_telephone_account_numbers();

    $name_number_count = @names;

    $count = 0;

    for $count (0 .. $name_number_count) {
        print @names->[$count] . " -> " . @numbers->[$count] . "\n";
    }

Answer 1

@names是一个数组，因此要访问元素，请使用$names[$index]。

此外，从0 .. $name_number_count迭代将使您超过数组的末尾。你想要0到＆＃34; @ names＆＃34;中的最后一个元素索引这将是@names - 1或$#names。所以：

for my $count (0 .. $#names) {

Perl在数组引用上给出错误

1 个答案: