Arrays 从现有文件读取数组时无法打印该数组

我有一个数据文件，每行包含一个数字。我正在尝试将此文件读入数组。这是我写的剧本：

#!/usr/bin/perl -w
$file1 = '/home/usr1/test.list';
open(FILEC, $file1);
my @cArray = FILEC;
close FILEC;
print @cArray;

但是在执行这个文件之后，什么都没有打印出来？我已经检查了输入test.list，它位于正确的位置。原因可能是什么

您缺少

（行）运算符：

my @cArray = <FILEC>;

my@cArray=；

应该有帮助。

您缺少

（行）操作员：

my @cArray = <FILEC>;

my@cArray=；

---

应该有帮助。

如果FatalError是正确的，您需要一个readline操作符。您可以阅读中有关

的更多信息，以及中有关

readline

功能的更多信息

一旦掌握了这些知识，您就可以明白为什么下面的内容也可以起作用（尽管可能不推荐用于可读性）。此外，我还将使用打印更好地表示

@cArray

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;

@ARGV = qw( /home/usr1/test.list ); 
# or remove previous line and call script as
# script.pl /home/usr1/test.list

my @cArray = <>;

print Dumper \@cArray;

---

FatalError是正确的，您需要一个readline运算符。您可以阅读中有关

的更多信息，以及中有关

readline

功能的更多信息

一旦掌握了这些知识，您就可以明白为什么下面的内容也可以起作用（尽管可能不推荐用于可读性）。此外，我还将使用打印更好地表示

@cArray

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;

@ARGV = qw( /home/usr1/test.list ); 
# or remove previous line and call script as
# script.pl /home/usr1/test.list

my @cArray = <>;

print Dumper \@cArray;

---

还有一种情况下，

使用严格的

和

使用警告

将有助于追踪问题。还有一种情况下，

使用严格的

和

使用警告

将有助于追踪问题。