use Fcntl; use SDBM_File; my %db_names; tie (%db_names, 'SDBM_File', './names.db', O_RDWR | O_CREAT, 0666); print "Enter your name--> "; chomp (my $name = <STDIN>); if(defined $db_names{$name}){ print "Your name was already found\n"; }else{ print "Name not found. Would you like to add it? (y/n)--> "; chomp (my $yn = <STDIN>); if ($yn eq 'y') { $db_names{$name}=1; } } untie %db_names;
In reply to Re: Useless Program
by lhoward
in thread Useless Program
by HeavensTrash
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |