perl - 如何在 Perl 中打印多维数组的一个数组？

Question

#!usr/bin/perl
@array = ();
open(myfile,"sometext.txt");
while(<myfile>)
{
    chomp;
    push(@array,[split(" ")]);
}
close(myfile);
print @array[0];

它不打印此多维数组中第一个数组的元素，而是输出十六进制 (?) 指针引用。如果有人知道我如何打印这个数组，请发布如何打印，我们将不胜感激。

Answer 1

您应该使用 strict 和 warnings .后者会告诉您访问第一行的方式是 $array[0] .现在，该值是对您推送到 @array 的匿名数组的引用。 .因此，您需要取消引用:print "@{ $array[0] }\n";

#!/usr/bin/perl

use strict; use warnings;

my @array;

my $input_file = 'sometext.txt';

open my $input, '<', $input_file
    or die "Cannot open '$input_file': $!";

while(<$input>) {
    chomp;
    push @array, [ split ];
}

close $input;

print "@$_\n" for @array;