>
print "Версия Perl=$]"; # вывести номер версии Perl
print 2474.918 / 381.65; # печатать частное от деления
print "Укажите количество чисел: "; # напечатать запрос
Подробно об операциях ввода-вывода будет рассказано в лекции 9, где также будут изучены операции проверки файлов - другая разновидность именованных операций.
В Perl нет специальных литералов для обозначения истинного и ложного значения, подобно true и false в других языках программирования. Необходимость вычислить истинность или ложность выражения определяется логическим контекстом. Логический (или булев) контекст является разновидностью скалярного строкового, поэтому значение выражения преобразуется к строке. Если после преобразования выражения получается пустая строка (не содержащая ни одного символа) либо строка, состоящая из одного символа '0' (цифры "нуль"), то значение выражения считается ложным. Значения всех других выражений считаются истинными. Иногда результат вычисления истинности или ложности выражения может показаться немного непривычным, например:
>
'' или "" пустая строка, поэтому - "ложь"
0 или 0.0 0 преобразуется в '0', поэтому - "ложь"
+0 или -0 0 преобразуется в '0', поэтому - "ложь"
5-(3+2) равно 0, который преобразуется в '0', поэтому - "ложь"
undef неопределенное значение дает в результате '', поэтому - "ложь"
'1' или 'false' не пустая строка и не '0', поэтому - "истина"
'00' или '0.0' не пустая строка и не '0', поэтому - "истина"
'-0' или '+0' не пустая строка и не '0', поэтому - "истина"
'0 but true' не пустая строка, значит - "истина"
Истинность или ложность значения выражения вычисляется для логических операций и операций сравнения.
В Perl есть отдельные наборы операций для сравнения чисел и строк. Обозначения операций сравнения чисел совпадают с обозначениями операций в других языках, основанных на синтаксисе языка C. В следующих примерах предположим, что в переменной $n хранится значение 25:
>
== равно (не путайте с присваиванием (=), например, $n == 4 ложно)
!= не равно (например, $n != 8*2 истинно)
< меньше, чем (например, $n < '16.08' ложно)
> больше, чем (например, $n > 9 истинно)
меньше или равно (например, $n <= 26 истинно)
больше или равно (например, $n >= 24 истинно)
<=> числовое сравнение (например, $n <=> 64 вернет -1)
Последняя операция числового сравнения <=> (называемая на программистском жаргоне spaceship - "космический корабль, челнок"), возвращает значение -1, 0 или 1, если первый операнд операции соответственно меньше, равен или больше второго. Все эти операции создают числовой контекст, и строковые операнды этих операций перед сравнением преобразуются к числам. Например, сравнения
