基于文本的数据输入

Question

我想要一个可以通过telnet运行的Perl（控制台应用程序）中基于文本的示例数据输入模板。 E.g：

 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删除尾随换行符。