Вероятно, на этой стадии вас уже заинтересовало, как ввести значение с клавиатуры в программу Perl. Вот самый простой способ: используйте оператор построчного ввода <STDIN>. Каждый раз, когда вы используете конструкцию <STDIN> в месте, где подразумевается скалярное значение, Perl читает из стандартного ввода следующую полную строку (до ближайшего символа новой строки) и использует ее в качестве значения <STDIN>. Термин «стандартный ввод» может иметь много разных интерпретаций, но в типичном случае он обозначает клавиатуру пользователя, запустившего программу.

Если в <STDIN> нет данных, готовых к вводу (а так оно обычно и бывает, если только вы не ввели заранее полную строку), программа Perl останавливается и ждет появления символов, завершаемых символом новой строки. Строковое значение <STDIN> обычно завершается символом новой строки, поэтому можно поступить так:

$line = <STDIN>;
if ($line eq "\n") {
print "That was just a blank line!\n";
} else {
print "That line of input was: $line";
}

Но на практике символы новой строки обычно оказываются лишними. Для их устранения используется оператор chomp.

Добавлено: 20 Июля 2018 07:10:12 Добавил: Андрей Ковальчук Нравится 0

Добавить