--- David Freeman <[EMAIL PROTECTED]> wrote:
> while(1){
> last until eof unless $email;
Okay, this is a seriously wierd constructm lol... =o)
First of all "last until" is a logical oxymoron. "last" breaks out of a
loop, "until" makes one. It's a statement that *could* only execute
once at most, logically.
Next, Perl gets confused if you try to put more than one postfix
condition. Break up the syntax.
Also, why say while(1) and then check eof?
try something like this:
print "Some prompt? ";
while($email=<STDIN>) {
chomp $email;
last if $email =~ /^[qdbw](uit|one|ye|hatever)?/i;
# more code . . .
}
Finally, just in case I've completely misunderstood, or there is later
some other reason for you to compud conditions this way (I've had to
;o)
Try this:
unless($x) { y() until $z }
__________________________________________________
Do You Yahoo!?
Make international calls for as low as $.04/minute with Yahoo! Messenger
http://phonecard.yahoo.com/
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
