18 lines
421 B
Perl
18 lines
421 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use AnyDBM_File;
|
||
|
|
dbmopen(%states, "statedb", 0666[a]) || die;
|
||
|
|
TRY: {
|
||
|
|
print "State Abbreviation:";
|
||
|
|
chomp($abbrev=<STDIN>);
|
||
|
|
$abbrev = uc $abbrev;
|
||
|
|
print "Name of the state:";
|
||
|
|
chomp($state=<STDIN>);
|
||
|
|
lc $state;
|
||
|
|
$states{$abbrev}="\u$state";
|
||
|
|
print "Another entry? ";
|
||
|
|
$answer = <STDIN>;
|
||
|
|
redo TRY if $answer =~ /Y|y/;
|
||
|
|
}
|
||
|
|
dbmclose(%states);
|