|
Perl для чайников от nsХотя вам наверняка уже всё поняино, :) всё же объясню эту программу. В первой строке мы выводим приглашение ввести число от 20 до 30. Во второй - мы его считываем в переменную $com. С третьей по пятую строку мы задаем цикл условием, которое ставим так: "Верно, пока $com меньше 50", а в блоке операторов сначала прибавляем единицу к нашему числу, а затем печатаем его. Когда цикл завершится мы увидим на экране череду цифр от введенного до 50 (если было введено больше, то ничего интересного не произойдёт) и просьба нажать enter для завершения программы. А теперь, то ради чего всё это объяснялось - очередной апгрейд: print "enter comand:"; chomp($com = $pri = $com; $com =~ tr/A-Z/a-z/; while ($com ne "exit"){ if ($com =~ /format/){ $bad = "$pri - BAD COMAND! n" x 999; print "$badn"; print "enter comand:"; chomp($com = $pri = $com; $com =~ tr/A-Z/a-z/; } else{ print `$com`; print "enter comand:"; chomp($com = $pri = $com; $com =~ tr/A-Z/a-z/; } } print "Press ENTER to quit"; <>; Продолжение статьи: ч.1 Продолжение статьи: ч.2 Продолжение статьи: ч.3 Продолжение статьи: ч.4 Продолжение статьи: ч.5 Продолжение статьи: ч.6 Продолжение статьи: ч.7 Продолжение статьи: ч.8 Продолжение статьи: ч.9 Продолжение статьи: ч.10 Продолжение статьи: ч.11 Продолжение статьи: ч.12 Продолжение статьи: ч.13 Другие статьи по теме: - почему я выбрал perl?- использование библиотеки mime-base64 - введение в perl - аутентификация пользователей через веб-интерфейс - повышение индивидуального мастерства дизайнера |
|
2006-2024 © SMTI.RU Главная страница | Связаться с нами |