Сравнение% 2B в Perl

Question

Я просто пытаюсь проверить, равна ли строка "% 2B", и если это так, я изменяю ее на "+". Проблема заключается в сравнении.

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

Когда $ lastItem является чем-то совершенно другим (например, «привет»), оно все равно будет включено в оператор. Я ломал голову, и я просто не могу сказать, где я ошибся. Есть ли у% 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 :: Бегство

Пожалуйста, используйте 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