Re: Re: Re: Loop Control : REDO

yours is good, but why chomp? no need with that regexp...

print "** Random 4 Lotto Numbers **\n";
print "** Type any four digits (0 to 9) **\n";

for ($i=1; $i <= 4; $i++) {
     print "Choice $i: ";
     redo if ($digit[$i] = <STDIN>) !~ /^\d$/;
}
   
print "Your choices :@digit \n";
[download]

since the $ works fine with \n there
- Ant

Comment on Re: Re: Re: Loop Control : REDO Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: Loop Control : REDO by iakobski (Pilgrim) on May 02, 2001 at 18:45 UTC
You are quite right that $ in regex will match at the end of the line, but you still need the chomp, otherwise the newlines get into the array. iakobski	[reply]
Re: Re: Re: Re: Re: Loop Control : REDO by suaveant (Parson) on May 02, 2001 at 18:52 UTC
Ack... yup... my bad... :) - Ant	[reply]


Perl Monk, Perl Meditation
	PerlMonks