Perl 两个相同的字符串比较不相等

Question

这是我的代码:

    my $self = shift;
    my $h    = shift;

    print "$h\n";

    my @headers = split /,/, $h;

    foreach my $el (@{$expected}) {
            my $t = shift @headers;
            chomp ($t);
            chomp ($el);
            print Dumper($el cmp $t, $el, $t);
            print "test: \'$el\' eq \'$t\' ";
            unless ($el eq $t) {
                    print "not ok $el ne $t\n";
                    return 0;
            } else {
                    print "ok\n";
            }
    }
    return 1;

在我的第一个单元测试中，我将一个字符串传递给 $h ，它与 $expected 匹配。然后我进行了一个单元测试，确保函数在传递不匹配的字符串时失败。这两个测试的行为符合预期。

Server,Jira Project,Issue Type,Summary,Description,Assignee,Labels,Epic Link

$VAR1 = 0;

$VAR2 = 'Server';

$VAR3 = 'Server';

test: 'Server' eq 'Server' ok

当我从 CSV 文件中提取该行并将其传递给此函数时，我得到了不同的响应。

Server,Jira Project,Issue Type,Summary,Description,Assignee,Labels,Epic Link

$VAR1 = -1;

$VAR2 = 'Server';

$VAR3 = 'Server';

test: 'Server' eq 'Server' not ok Server ne Server

比较在某种程度上意味着预期值在某种程度上小于正在测试的值。我立即想到正在测试的内容必须有一个前导或尾随字符。然而，打印和转储似乎并没有证实这一点(除非我遗漏了一些东西)。这些咀嚼者只是出于纯粹的绝望。

我错过了什么？

Answer 1

首先感谢 @hobbs 提供的 $Data::Dumper::Useqq = 1;建议。很明显，有一些我不知道如何检测的主角。

$VAR1 = -1;

$VAR2 = "Server";

$VAR3 = "\357\273\277Server";

我正在阅读的 CSV 文件包含 Byte Ordermarking信息。

我会把它们脱掉。感谢大家让我再次出发。