Question

我只是想检查字符串是否等于“％2B”，如果是，我将其更改为“+”。问题在于比较。

if ($lastItem == "%2B"){
   $lastItem = "+";
}

当$ lastItem完全不同（比如“hello”）时，它仍然会进入语句。我一直在wra自己的大脑，我只是不知道我哪里出错了。％2B有一些特殊含义吗？我对perl很新。

由于

Answer 1

比较字符串时需要使用eq，或者perl会尝试将字符串转换为数字（0），您会发现"a" == 0这样的奇怪之处评估真实。当比较两个字符串时，你当然会有效地得到if (0 == 0)，这就是你所描述的问题。

if ($lastItem eq "%2B") {

重要的是要注意，如果您使用过use warnings，这个问题会更容易被发现，因为这个单行代码会证明：

$ perl -wE 'say "yes" if ("foo" == "bar")'
Argument "bar" isn't numeric in numeric eq (==) at -e line 1.
Argument "foo" isn't numeric in numeric eq (==) at -e line 1.
yes

Answer 2

我认为你真的想要以下内容：

use URI::Escape qw( uri_unescape );

my $unescaped_last_item = uri_unescape($escaped_last_item);

URI::Escape

请使用use strict; use warnings;！

Answer 3

启用use warnings的另一个例子可以更简单地解决错误。

$ perl -Mwarnings -e'$l = "x"; if ($l == "%2B") { print "match\n" }'
Argument "%2B" isn't numeric in numeric eq (==) at -e line 1.
Argument "x" isn't numeric in numeric eq (==) at -e line 1.
match

perl中％2B的比较

3 个答案: