[EMAIL PROTECTED] said:
> sub init_words { open(WORDLIST,"wordlist") || die "can't open
> wordlist";
> while($name = )
> {
> chomp($name);
> $word=;
> chomp($word);
> $words{$name}=$word;
> }
> close(WORDLIST);
> }
>
> It ask you for your name then your password. If
On Wed, 1 Nov 2000, Larry Mintz wrote:
> It can't this stupid program to terminate properly.
> sub init_words
> {
> open(WORDLIST,"wordlist") || die "can't open wordlist";
> while($name = )
> {
> chomp($name);
> $word=;
> chomp($word);
> $words{$name}=$word;
> }
> close(WOR
On 02-Nov-00 at 02:49:26 Larry Mintz wrote:
> It can't this stupid program to terminate properly.
> Here it is:
>
> It ask you for your name then your password. If it doesn't match it goes
> into a loop until it gets it right. The problem is when you enter the
> correct password for the correct
It can't this stupid program to terminate properly.
Here it is:
# /usr/bin/perl -w
init_words();
print "What is your name ?";
$name =;
$name =~ s/\W.*//;
$name =~ tr/A-Z/a-z/;
chomp($name);
print "Hello $name\n";
print" What is the secret password ?->";
$guess=;
chomp($guess);
$pw=$words
