基於文本的數據輸入

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去掉尾隨的換行符。