Давайте сделаем так, чтобы программа называла вас по имени. Для этого нам нужно место для хранения имени, способ задания вопроса об имени и способ получения ответа.

Одно из мест хранения значений - скалярная переменная . Для хранения вашего имени мы используем скалярную переменную $name . Более подробно о переменных вы можете узнать в соответствующей литературе. Пока же в скалярной переменной мы будем сохранять число или строку.

Программа должна уметь спрашивать у вас имя. Для этого нам нужен способ принятия от вас данных. Получение строки с терминала осуществляется с помощью конструкции <STDIN> , которая в нашем случае получает одну строку данных. Введенные данные присваиваем переменной $name . Это дает нам следующую программу:

print "Как Вас зовут? ";
$name = <STDIN>;

Значение переменной $name пока содержит завершающий символ новой строки (имя Алекс поступит как Алекс\n ). Чтобы избавиться от этого символа, мы воспользуемся функцией chomp , которая в качестве своего единственного аргумента принимает скалярную переменную и удаляет из ее строкового значения завершающий символ перехода на новую строку (пробельный символ), если он присутствует:

chomp($name);

Теперь нам нужно лишь сказать Привет и указать значение переменной $name , что мы можем сделать, поместив эту переменную в заключенную в кавычки строку:

print "Привет, $name!\n";

Если нам нужен именно знак доллара ( $ ), а не ссылка на скалярную переменную, мы можем предварить этот знак обратной косой чертой ( \ ).

Сложив все вместе получаем:

#!/usr/bin/perl -w
print "Как Вас зовут? ";
$name = <STDIN>; chomp($name);
print "Привет, $name!\n";

<< Предыдущая страница Содержание Наверх Следующая страница >>