Perl 中 $dummy 和非参数 split 意味着什么？

Question

我需要一些帮助来解码这个 perl 脚本。 $dummy 未在脚本中的其他任何地方使用任何内容进行初始化。脚本中的以下行是什么意思？为什么 split 函数没有任何参数时会出现这种情况？

($dummy, $class) = split;

该程序试图使用某种统计分类方法来检查某个陈述是真还是假。假设它计算并给出以下数字“真值”和“假值”，然后检查测谎仪是否正确。

# some code, some code...
$_ = "truth"
# more some code, some code ...

$Truthsity = 9999
$Falsity = 2134123

if ($Truthsity > $Falsity) {   
    $newClass = "truth";      
} else {
    $newClass = "lie";     
}

($dummy, $class) = split;

if ($class eq $newClass) {
    print "correct";
} elsif ($class eq "true") {
    print "false neg";
} else {
    print "false pos"
}

Answer 1

($dummy, $class) = split;

Split 返回一个值数组。第一个值放入 $dummy 中，第二个值放入 $class 中，任何其他值都将被忽略。第一个参数可能被命名为 dummy，因为作者计划忽略该值。更好的选择是使用 undef
忽略返回的条目： ( undef, $class ) = split;

Perldoc 可以向您展示 split 的功能。当不带参数调用时， split 将针对 $_ 进行操作并按空格进行拆分。 $_ 是 perl 中的默认变量，将其视为隐含的“it”，由上下文定义。

使用隐含的 $_ 可以使短代码更加简洁，但在较大的块中使用它的形式很糟糕。您不希望读者对您想要使用哪个“它”感到困惑。

split ;                      # split it
for (@list) { foo($_) }      # look at each element of list, foo it.
@new = map { $_ + 2 } @list ;# look at each element of list, 
                             # add 2 to it, put it in new list
while(<>){ foo($_)}          # grab each line of input, foo it.

perldoc -f 分割

如果省略 EXPR，则分割 $_ 字符串。如果 PATTERN 也被省略，则分割
空格（跳过任何前导空格后）。任何与模式匹配的东西
被视为分隔字段的分隔符。 （请注意，分隔符可以
长度超过一个字符。）

我是三元运算符 的忠实粉丝？ ： 用于设置字符串值并将逻辑推送到块和子例程中。

my $Truthsity = 9999
my $Falsity   = 2134123

print test_truthsity( $Truthsity, $Falsity, $_ );

sub test_truthsity {
  my ($truthsity, $falsity, $line ) = @_;
  my $newClass = $truthsity > $falsity ? 'truth' : 'lie';
  my (undef, $class) = split /\s+/, $line ;

  my $output = $class eq $newClass ? 'correct' 
             : $class eq 'true'    ? 'false neg'
             :                       'false pos';
  return $output;
}

此版本中可能存在一个微妙的错误。不带参数的 split 与 split(/\s+/, $_) 并不完全相同，如果行以空格开头，它们的行为会有所不同。在完全限定的分割中，返回空白前导字段。不带参数的 split 会删除前导空格。

$_ = "  ab cd";
my @a = split             # @a contains ( 'ab', 'cd' );
my @b = split /\s+/, $_;  # @b contains ( '', 'ab', 'cd')

Answer 2

来自 split 的文档：

分割/PATTERN/,EXPR

如果省略 EXPR，则分割 $_ 字符串。如果 PATTERN 也被省略，
在空格上分割（跳过任何前导空格后）。任何事物
匹配的 PATTERN 被视为分隔字段的分隔符。
（请注意，分隔符可能长于一个字符。）

因此，由于模式和表达式都被省略，我们将在空格上拆分默认变量 $_。

$dummy 变量的目的是捕获从 split 返回的列表的第一个元素并忽略它，因为代码只对第二个元素感兴趣，该元素被放入 $class。

您必须查看周围的代码才能找出此上下文中的 $_ 是什么；它可能是循环变量或 map 块中的列表项，或其他东西。

Answer 3

如果您阅读文档，您会发现：

• 第一个操作数的默认值是<代码>“”。
• 第二个操作数的默认值是$_。
• 第三个操作数的默认值是0。

so

split

是缩写

split " ", $_, 0

，意思是：

采用 $_，将其值拆分为空格，忽略前导和尾随空格。

第一个结果字段放置在 $dummy 中，第二个结果字段放置在 $class 中。

根据它的名称，我认为您永远不会再使用 $dummy，因此它只是充当占位符。不过，你可以摆脱它。

my ($dummy, $class) = split;

可以写成

my (undef, $class) = split;   # Use undef as a placeholder

或

my $class = ( split )[1];     # Use a list slice to get second item