Perl字符串比较不起作用[重复]

Question

下面是我的 Perl 程序：

my $var1='perfp2u1@vanlync2k13.com';
my $var2='PerfP2U1@vanlync2k13.com';
if($var1 eq $var2){
    print "match";
}
else{
    print "no match";
}

输出是： no match

我不知道为什么程序不能正常工作？？？？？？ 对于上述程序，我希望输出“匹配”。

以下是我的 straberry perl 版本详情（操作系统：windows 7）。

D:>perl -version
This is perl 5, version 16, subversion 2 (v5.16.2) built for MSWin32-x64-multi-t
hread

Copyright 1987-2012, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at http://www.perl.org/, the Perl Home Page.

Answer 1

如果您想要不区分大小写的匹配，只需使用lc

my $var1 = 'perfp2u1@vanlync2k13.com';
my $var2 = 'PerfP2U1@vanlync2k13.com';

if(lc $var1 eq lc $var2){
    print "match";
} else{
    print "no match";
}

Answer 2

Perl eq 运算符区分大小写，我很惊讶您认为它的行为会有所不同。

要进行 不区分大小写 比较，您可以在进行比较。

像这样

my $var1 = 'perfp2u1@vanlync2k13.com';
my $var2 = 'PerfP2U1@vanlync2k13.com';

if (lc $var1 eq lc $var2){
    print 'match';
}
else {
    print 'no match';
}

输出

match