Для сравнения скалярных данных или значений скалярных
переменных язык Perl предлагает набор бинарных операций, вычисляющих
отношения равенства, больше, больше или равно и т. п. между
своими операндами, поэтому эту группу операций еще называют
операциями отношения. Для сравнения числовых данных и строковых
данных Perl использует разные операции. Все они представлены
в табл. 4.1.
Таблица 4.1. Операции отношения
| Операция | Числовая | Строковая | Значение |
| Равенство | == | eq | Истина, если операнды равны, иначе ложь |
| Неравенство | != | ne | Истина, если операнды не равны, иначе ложь |
| Меньше | < | lt | Истина, если левый операнд меньше правого, иначе ложь |
| Больше | > | gt | Истина, если левый операнд больше правого, иначе ложь |
| Меньше или равно | <= | le | Истина, если левый операнд больше правого или равен ему, иначе ложь |
| Больше или равно | >= | ge | Истина, если правый операнд больше левого или равен ему, иначе ложь |
| Сравнение | <=> | cmt | 0, если операнды
равны 1, если левый операнд больше правого -1, если правый операнд больше левого |
Результатом операций
отношения (кроме последней сравнения) является Истина, значение
1, или Ложь, пустая строка "".
Замечание
Значение истина в арифметических операциях интерпретируется как число 1, а в строковых как строка "1". Значение ложь в арифметических операциях интерпретируется как число 0, а в строковых как пустая строка " ".
Числовые операции
отношения применяются к числовым данным, причем один или оба
операнда могут задаваться строкой, содержащей правильное десятичное
число. Если в числовых операциях отношения какой-либо из операндов
задан строкой, содержимое которой не представляет правильное
десятичное число, то его значение принимается равным о и отображается
предупреждение о некорректном использовании операнда в числовой
операции отношения (если включен режим отображения предупреждений
интерпретатора Perl). Смысл операций отношения для числовых
данных соответствует обычным математическим операциям сравнения
чисел (пример 4.7).
123 > 89; # Результат: 1 (истина) 123 < 89; # Результат: "" (ложь)
123 <= 89; # Результат: "" (ложь)
89 <= 89; # Результат: 1 (истина)
23 >= 89; # Результат: "" (ложь)
23 <=> 89; # Результат: -1 (правый операнд больше левого)
89 <=> 23; # Результат: 1 (правый операнд больше левого)
Применение числовых операций сравнения не представляет сложности, однако при сравнении на равенство десятичных чисел с плавающей точкой могут проявиться эффекты округления, связанные с ограниченным количеством значащих цифр в мантиссе представления действительных чисел в компьютере и приводящие к "неправильной", с точки зрения пользователя работе операций сравнения. Пример 4.8 иллюстрирует подобную ситуацию.
$z = 0.7;
$zz =• 10+0.7-10; # Переменная $zz содержит число 0.7
# Печать строки "z равно zz", если равны значения переменных $z и $zz print "z равно zz\n" if ($z == $zz);
При попытке выполнить пример 4.8 мы с удивлением обнаружим, что наша программа ничего не напечатает. В чем же дело? Разгадка лежит в операторе вычисления значения переменной $zz. При выполнении арифметических операций в результате ошибок округления получается значение 0.699999999999999 (можете вставить оператор печати переменной $zz и убедиться в этом), хотя и близкое к 0.7, но не равное ему в точности. Следовательно, операция сравнения отработала верно!
Совет
Не используйте операцию сравнения на равенство вещественных чисел, ее результат может не соответствовать ожидаемому с точки зрения математики. Если необходимо проверить равенство двух вещественных чисел, то лучше сравнивать абсолютное значение их разности с некоторым очень маленьким числом (в зависимости от требуемой точности):
Строковые операции отношения
Сравнение строковых
данных базируется на их упорядочении в соответствии с таблицей
кодов ASCII, т. е. символ с меньшим кодом ASCII предшествует
символу с большим кодом. Сравнение строк осуществляется посимвольно
слева направо. Это означает, что если равны первые символы
строк, то сравниваются вторые и если они равны, то сравниваются
третьи и т. д. Причем, если строки разной длины, то в конец
строки меньшей длины добавляется недостающее для равенства
количество символов с кодом о. Следует отметить, что в отличие
от некоторых других языков программирования в Perl замыкающие
строку пробельные символы являются значимыми при сравнении
строк. В примере 4.9 показаны сравнения строк, иллюстрирующие
изложенные правила.
| "A" It "a"; | # Результат: истина (код "А" - \101, код "а" - \141) |
| "a" It "aa"; | # Результат:
истина (к строке "а" добавляется символ # с кодом \000, который меньше кода \141 # второго символа "а" строки правого операнда) |
| "a" It "a "; | # Результат:
истина (к строке "а" добавляется символ # с кодом \000, который меньше кода \040 # замыкающего пробела строки правого операнда) |
| "12" It "9"; | # Результат: истина (код "1" - \061, код "9" - \071) |
| "9" eq 09"; | # Результат: ложь (код " " - \040, код "О" - \060) |
Обратим внимание
на две последние операции сравнения строковых литералов. Содержимое
их операндов может быть преобразовано в правильные числа,
и поэтому к ним применимы аналогичные числовые операции отношения.
Однако их результат будет существенно отличаться от результата
выполнения строковых операций отношения. При использовании
операции < в предпоследнем выражении результат будет Ложь,
а если в последнем выражении применить операцию ==, то результат
будет Истина. Об этом всегда следует помнить, так как Perl
автоматически преобразует символьные данные в числовые там,
где это необходимо.