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

Другие голосования

Приглашаем Вас обменяться кнопочками! Обращайтесь к администратору.

• установка php и apache на *nux
• собираем apache + php + xml для linux
• синтаксис .htaccess
• модуль mod_rewrite. часть 4
• модуль mod_rewrite. часть 3
• модуль mod_rewrite. часть 2
• модуль mod_rewrite. часть 1
• Apache + php + xml + mysql для windows
• вебсервер в домашних условиях
• протокол hdlc