Text based Data Entry

I开发者_Python百科 want a sample text-based data-entry template in Perl (console application) that can run through telnet. E.g:

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

The user has to enter in the relevant fields.

---

You can take input by reading from the special file handle STDIN. Loop through the fields you want inputted, and store the results in a hash:

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 removes the trailing newlines.