以下脚本智能匹配两个数组的切片。一开始,两个阵列都是一样的,我得到了合理的结果。然后我改变其中一个数组并智能匹配两个新切片,但它仍然说切片是相同的。但是,当我将切片复制到数组中时,对数组进行智能匹配表明它们确实不同。
剧本:
#!/usr/bin/perl
use warnings;
use strict;
use diagnostics;
my @x = qw (one two);
my @y = qw (one two);
my @x_s;
my @y_s;
print "Before change: values are the same:\n";
@x_s = @x[0,1];
@y_s = @y[0,1];
print "\@x_s: @x_s\n";
print +(@x[0,1] ~~ @y[0,1]) ? "equal\n" : "not equal\n";
print +(@x_s ~~ @y_s) ? "equal\n" : "not equal\n";
$x[0]='three';
print "After change: values should be different:\n";
@x_s = @x[0,1];
@y_s = @y[0,1];
print "\@x_s: @x_s\n";
print +(@x[0,1] ~~ @y[0,1]) ? "equal\n" : "not equal\n";
print +(@x_s ~~ @y_s) ? "equal\n" : "not equal\n";
输出:
Before change: values are the same:
@x_s: one two
equal
equal
After change: values should be different:
@x_s: three two
equal
not equal
我正在使用Perl 5.10.1,这对于数组切片和散列切片都会发生。为什么会这样?
答案 0 :(得分:5)
看起来智能匹配在带有切片的标量上下文中工作。
考虑以下代码:
你的案子:
#!/usr/bin/perl
my @foo = (1,2);
my @bar = (3,4);
print @foo[1,2] ~~ @bar[1,2] ? "Equal\n" : "Not equal\n";
这可能就是你所需要的:
#!/usr/bin/perl
my @foo = (1,2);
my @bar = (3,4);
print [ @foo[1,2] ] ~~ [ @bar[1,2] ] ? "Equal\n" : "Not equal\n";
答案 1 :(得分:3)
智能匹配运算符~~
为数组提供了神奇的功能,而不是列表。数组切片是列表,而不是数组。
更新
你可以通过将切片括在括号中来解决它,因为智能匹配会自动解除引用:
print +([@x[0,1]] ~~ [@y[0,1]]) ? "equal\n" : "not equal\n";
答案 2 :(得分:0)
最初由askucins
发布我在与该测试与Perl版本的不同行为相关的Perl文档中运行了一个快速查询,我发现这在Perl 5.13.5中得到了修复。请参阅perl5135delta中的“对数组切片进行智能匹配”:
以前,以下代码导致匹配成功:
my @a = qw(a y0 z); my @b = qw(a x0 z); @a[0 .. $#b] ~~ @b;
这种奇怪的行为现已修复[perl #77468]。