В Perl есть шесть бинарных арифметических
операторов - это суммирование, вычитание,
умножение, степень, деление и модуль.
Вероятно, что вы можете быть не знакомы с
оператором модуля, но все остальные вы,
скорее всего, знаете. Как вы уже, наверное,
догадались, бинарные операторы имеют два
операнда. На то они (операторы), собственно,
и бинарные :))) op1 + op2 суммирование
op1 - op2 вычитание
op1 * op2 умножение
op1 ** op2 возведение в степень
op1 / op2 деление
op1 % op2 модуль
Сей оператор используется для возведения
числа в степень. Например, 2**4 эквивалентно
конструкции 2*2*2*2, а равно все это счастье 16.
Присвоим переменной $firstVar значение 4.
Произведеем 4 в степень 3, используя
оператор степени и присвоим результат
переменной $secondVar.
$firstVar = 4;
$secondVar = $firstVar ** 3;
print("$secondVar\n");
Программа выведет на экран: 64
Оператор модуля используется для
нахождения остатка от деления между двумя
целочисленными операндами. Например, 10%7
будет равно 3, потому что если мы 10 поделим
на 7, то получим 1 и 3 в остатке.
Задание:
Создаем цикл, где переменная $index равна нулю.
Если значение $index%10 равно нулю, то
напечатать его через пробел. Каждую
итерацию цикла переменная $index
увеличивается на единицу.
for ($index = 0; $index <= 100; $index++) {
if ($index % 10 == 0) {
print("$index ");
}
}
Результатом выполнения программы будет: 0
10 20 30 40 50 60 70 80 90 100
В данной программе печатаются каждые десять значений. Путем изменения правого операнда оператора модуля вы можете влиять на то, какие значений будут печататься.
Конструкции языка Perl "if" и "for" рассматриваются в главе 7 "Операторы управления".