in reply to RE: RE: Re: Minor query
in thread Minor querry!!

And turnstep said:
But my personal favorite would be simply: 
print "Number?\n" while <STDIN> !~ /^\d+$/;

[download]
Of course, you'll not have the number you read, unless you look at $& (expensive) or put \d+ inside parens, and then look at $1.

-- Randal L. Schwartz, Perl hacker

Replies are listed 'Best First'.
RE: RE: RE: RE: Re: Minor query
by turnstep (Parson) on Jun 25, 2000 at 19:16 UTC

    Yes, I meant to add a: 

    $number = $&;

    [download]
    which would be expensive, but considering that the script must stop for user input with the STDIN, probably not a big deal in this case. Parens would be smoother, but make the initial statement larger. IMO, of course. :)

[reply]
[d/l]

In Section Seekers of Perl Wisdom