in reply to Re: force user to only enter numbers
in thread force user to only enter numbers

mmh, I forgot all ";" and this don't go

much better like this: 

...
print "enter a number: \n";
my $num = <STDIN>;
if ($num !~/^[+-]?\d+$/){
print "this is not a number\n please type a number\n";
}
else {print "your number is $num\n"}
...

[download]
Update: my $num = int(<STDIN>); thus, 12.45 now is a number

ups... not so good idea,

enter a number: dfr34

your number is 0

Replies are listed 'Best First'.
Re^3: force user to only enter numbers
by pvaldes (Chaplain) on Sep 02, 2011 at 16:48 UTC

    hohohou...

    use strict;
print "enter a number: ";
my $num = <STDIN>;
if ($num !~/^[+-]?\d+\.?\d*$/){print "this is not a number\n"}
else {print "your number is $num\n"}


__OUTPUT__
34  -> your number is 34
34.56  -> your number is 34.56
-1 -> your number is -1
34gtf -> this is not a number

    [download]
[reply]
[d/l]
Re^3: force user to only enter numbers
by adroit (Initiate) on Sep 02, 2011 at 16:36 UTC
    Thanks..This is what I was looking for..
[reply]

In Section Seekers of Perl Wisdom