哈希数组；不能在“严格引用”时使用字符串（“1”）作为数组引用？

Question

我想在 perl 中创建一个二维数组，我发现最简单的方法是使用哈希数组。 有我的哈希数组

my %tstat;

while ( $index <= $i ) {
    $curfile[$index] = $camera_path[$index] . "/current.jpg";
    $tstat{$index} = stat( $curfile[$index] );
    $index++;
}

$index = 0;
while ( $index <= $i ) {
    if ( $tstat{$index}[9] != $last_direct_img[$index] || $buffer_init-- > 0 ) {
        ...;
        $index++;
    }
}

它告诉我

在“strict refs”时不能使用字符串（“1”）作为数组引用

我尝试用 {9} 更改 [9]，但还是一样，为什么？

Answer 1

您必须在内部结构中存储引用：

$tstat{$index} = [ stat($curfile[$index]) ];

Answer 2

试试：

my @status_info = stat($curfile[$index]);
$tstat{$index} = \@status_info;

然后：

my $mtime = $tstat{$index}->[9];
...