Текстовый ввод данных

Question

Мне нужен образец текстового шаблона ввода данных в Perl (консольное приложение), который может работать через telnet. Например:

 Name:___________________  Education:____________________
 College:__________________ Address:____________________

Пользователь должен ввести в соответствующие поля.

Answer 1

Вы можете получить ввод, прочитав специальный дескриптор файла STDIN. Переберите поля, которые вы хотите ввести, и сохраните результаты в хеш-коде:

my @fields = qw/name education college address/;
my %data;
for my $field ( @fields ) {
    print "$field: ";
    chomp( my $input = <STDIN> );
    $data{$field} = $input;
}
printf "Hello, %s!\n", $data{name};

chomp удаляет завершающие символы новой строки.