![]() |
|
Perl для чайников от nsДумаю для вас здесь должно быть понятно всё, кроме того как мы искали в переменной $com слово format. Данный поиск удобнее всего сделать с помоцью поиска по шаблону , но об этом я расскажу позже, а пока... Программа, которую мы написали конечно интересна и даже защищает вас от форматирования, но она пока ецё не удобна - ведь вам приходится каждый раз запускать программу снова. Давайте сделаем так, что бы прога принимала команду, выполняла её и запрашивала новую до тех пор пока мы не введём слово EXIT. В реализации данного вопроса нам понадобитя такая вещь как цикл: While (условие) { Блок операторов; } Наверное вам это покажется смешным, но цикл - это тоже основа Пёрл :) В отличаи от условия, цикл один раз выполняет блок операторов, после чего проверяется условие. И если оно истинно, то блок выполняется ещё раз. Иногда для наглядности применяют такую форму записи: do { Блок операторов; } while условие; Словами это всё можно было бы сказать так: "Выполнять до тех пор, пока условие истинно" Но как же быть когда нам нужно сказать примерно следующее: "Делать до тех пор пока условие не станет истинным"? В этом случае применяется оператор until. Он имеет свойства обратные while и записывается также: untli(условие){ Блок операторов;} Или do { операторы } until условие; Для закрепления информации приведу вам простейший пример: print "enter number 20 or 30: "; chmod($com = <>); while ($com <= 50) { $com++; print "$comn";} print "Press "ENTER" to quit"; <>; |
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
© SMTI.RU Главная страница | Связаться с нами генератор дизель электростанции продажа |