Question

foreach my $tp (@tpList)
{
print "inside function 14";
my $result1_fail = "";
$_=$tp;
next if(/^$/);
print "TP : $tp\n";
$result.="<h3>$tp</h3><BR>\n";
$result1_fail.="<h3>$tp</h3><BR>\n";
#------------------------------#
print "inside function 15";
***my @emptytables=();
my @tables=();***
@tables= getAllTables4TP($tp);

请解释我的@emptytables =（）;
还有我的@tables =（）;
用于定义一些空数组吗？
如果是，那么它的用途是什么？

Answer 1

这些数组初始化为空，如果下一个是数组赋值，它基本上没用。我会写

my @tables = getAllTables4TP($tp);

我无法对@emptytables说些什么，因为我看不到使用它的代码。

Answer 2

my @tables;创建一个空数组
my @tables = ();创建一个空数组，然后将其内容替换为空（清空它）。
my @tables = (); @tables = getAllTables4TP($tp);创建一个空数组，然后将其内容替换为空，然后用其他内容替换其内容。

我会使用以下内容：

my @tables = getAllTables4TP($tp);

Answer 3

是的，你是对的，它定义了一个空数组。

检查此部分

my @tables=();
@tables= getAllTables4TP($tp);

这里将数据插入到tables数组中。您可以直接将上面的行写成一行：

my @tables= getAllTables4TP($tp);

perl中这些空数组赋值的含义是什么？

3 个答案: