相关疑难解决方法(0)

Perl是否有内置函数来获取数组中元素的索引？或者我需要自己写这样的功能？[相当于PHP array_search()或JavaScript array.indexOf()]

我会简短,所以我不浪费你的时间;

简单的问题,我有一堆说,数百只狗

my @dogs = qw(Shepard Lab Dalmation Husky Chow Pitbull ...)

我想把它与一只狗比较

my $doggy = "Shepard";

我知道这很愚蠢,但我怎么办呢？

# Regex match against array?
# (This doesnt even work but its how i would think of doing it)
if ($doggy =~ /@dogs/) {
print $doggy;
}

在此先感谢您的任何答案,我感谢你们帮助我解决可能是一个非常愚蠢的问题.谢谢

使用Perl,我希望找到数组中定义的最后一个元素.

到目前为止,我有以下内容:

#generating array
$array[100] = (undef);
$array[$columns[1]-1] = $columns [2];

#finding the last element that is defined
for ($i=100; $i>=0; $i--) {
    if (($array[$i] != undef) && (!defined($lastdef)) ){
        $lastdef=$i;
    }
}

我不确定为什么这不起作用.有什么建议要改进,使用Perl？