Итак вы всё же решили встпть на тернистый путь Perl программиста и полностью испить эту чашу. Ну что ж, похвально. Тогда пришло время познакомить вас с самым главным правилом Пёрл: "Всегда есть несколько способов сделать это!" Может пока это для вас непонятно, но поверьте - в этом вся соль...
Ну и хватит философствовать, пора заняться делом. В предыдущей главе мы остановились на программе, которая считывает введенную дос команду, а затем её выполняет. Если вы помните - я настойчиво не советовал вам вводить дос команду format, и если вы это читаете, то наверняка вы этого не сделали. Но всегда будет опасность того, что вашу прогу запустит кто-то другой. В этом случае нам просто необходимо усовершенствовать нашу программу таким образом, чтобы при вводе команды format как минимум ничего не форматировалось. Задумаемся: как это сделать? Нам нужно посмотреть какая команда была введена, и в соответствии с этим разрешить или запретить её. Т.е. будет поставленно условие, которое будет соблюдаться при получении команды. Рассмотрим как это действует.
If (проверяем условие) { Если всё правильно - сделать одно; } else { Если нет - другое; }
В скобках после оператора IF находится некое условие, которое в результате проверки даст нам истину или ложь. Эти два понятия являются основными для Пёрл и поэтому вам придётся смириться с их некоторой "странностью". Истиной в Пёрл является НЕ пустая строка или, если речь идёт о числах, не ноль. Результатом проверки условя и будет 1 или 0. Таким образом, если при поиске в введённой команде слово format , мы получим истину, то выполнится первое действие, заключенное в круглые скобки и называемое блоком операторов (например можно вывести строку с сообщением об ошибке) иначе выполнится второй блок операторов.
Перед тем как продемонстрировать вам апргейд нашей програмки, хочу обратить ваше внимание на такую конструкцию:
If (условие1) { Первый блок операторов; } Elsif (уловие2){ Второй блок операторов; } Elsif (условие3) { Третий блок; } Else { Четвёртый блок;}
Такая форма записи позволит вам задавать столько условий, сколько понадобится. А теперь - долгожданный апгрейд:
print "enter comand: "; chmod($com = <>); if ($com =~ /format/i) { print "incorrect command\a"; } else { print `$com`; } print "Press \"ENTER\" to quit"; <>;
Думаю для вас здесь должно быть понятно всё, кроме того как мы искали в переменной $com слово format. Данный поиск удобнее всего сделать с помоцью поиска по шаблону , но об этом я расскажу позже, а пока... Программа, которую мы написали конечно интересна и даже защищает вас от форматирования, но она пока ецё не удобна - ведь вам приходится каждый раз запускать программу снова. Давайте сделаем так, что бы прога принимала команду, выполняла её и запрашивала новую до тех пор пока мы не введём слово EXIT. В реализации данного вопроса нам понадобитя такая вещь как цикл:
While (условие) { Блок операторов; }
Наверное вам это покажется смешным, но цикл - это тоже основа Пёрл :) В отличаи от условия, цикл один раз выполняет блок операторов, после чего проверяется условие. И если оно истинно, то блок выполняется ещё раз. Иногда для наглядности применяют такую форму записи:
do { Блок операторов; } while условие;
Словами это всё можно было бы сказать так: "Выполнять до тех пор, пока условие истинно" Но как же быть когда нам нужно сказать примерно следующее: "Делать до тех пор пока условие не станет истинным"? В этом случае применяется оператор until. Он имеет свойства обратные while и записывается также: untli(условие){ Блок операторов;}
Или
do { операторы } until условие;
Для закрепления информации приведу вам простейший пример:
print "enter number 20 or 30: "; chmod($com = <>); while ($com <= 50) { $com++; print "$com\n";} print "Press \"ENTER\" to quit"; <>;
Хотя вам наверняка уже всё поняино, :) всё же объясню эту программу. В первой строке мы выводим приглашение ввести число от 20 до 30. Во второй - мы его считываем в переменную $com. С третьей по пятую строку мы задаем цикл условием, которое ставим так: "Верно, пока $com меньше 50", а в блоке операторов сначала прибавляем единицу к нашему числу, а затем печатаем его. Когда цикл завершится мы увидим на экране череду цифр от введенного до 50 (если было введено больше, то ничего интересного не произойдёт) и просьба нажать enter для завершения программы.
А теперь, то ради чего всё это объяснялось - очередной апгрейд:
print "enter comand:"; chomp($com = <stdin>); $pri = $com; $com =~ tr/A-Z/a-z/; while ($com ne "exit"){ if ($com =~ /format/){ $bad = "$pri \- BAD COMAND! \n" x 999; print "$bad\n"; print "enter comand:"; chomp($com = <stdin>); $pri = $com; $com =~ tr/A-Z/a-z/; } else{ print `$com`; print "enter comand:"; chomp($com = <stdin>); $pri = $com; $com =~ tr/A-Z/a-z/; } } print "Press ENTER to quit"; <>;
В этой версии нашей программы мы не толоко решили стоящую перед нами задачу, но и добави кое что новое. Если бы мы ввели слово exit большими буквами (или хотя бы одна буква была большой) , то желаемого эффекта мы не получили бы. Четвертая строка переводит наше слово в нижний регистр (делает все буквы маленькими) уже упомянутым методом поиска по шаблону, о котором будет рассказано в следующей главе. Кроме того вас может заинтересовать: зачем мы копируем введенное слово из $pri в $com? Это сделано для того, что бы ичспользовать первоначальный вариант ввода позже. Например вы ввели FoRMaT, после четвёртой строки это будет просто format, но в седьмой строке мы формируем новую переменную, в которой используется первоначальный вариант, предусмотрительно нами сохраненный. Далее, в восьмой строке, и это еще одно новшество, мы выводим полученную переменную 999 раз (чтоб повадно не было! :). Остальное не должно вызвать у вас затруднений, однако если таковые возникли - повторите пройденный материал.
На этом с основами циклов и условий поконченно! В следующей главе мы изучим поиск по шаблону и выясним, почему в предпоследней версии нашей проги мы не использовали перевод символов в нижний регистр, а прога всё равно работает как надо.
На последок даю вам домашнее задание ( Взято из книги Рэндала Шварца "Изучаем Perl" ) :
Напишите программу, которая читает список чисел (каждое из которых записано в отдельной строке), пока не будет прочитано число 999, после чего программа выводит сумму всех этих чисел. (Ни в коем случае не прибавляйте 999!) Например, если вы вводите 1, 2, 3 и 999, программа должна ответить цифрой 6 (1+2+3).
Решение для проверки и для ленивых здесь
Дмитрий Червинский
http://perlbook.nm.ru/ |
