Accept only numeric value

[karthik2423]

Hi,
Please let me know how I can accomplish the following task -
"Ask the user to enter a number".
Check whether the user has entered only numeric values. If he/she enters any character other than 0-9, it should print out an error.

This is the program I have written so far..

#!/usr/bin/perl
use strict;
use warnings;
print "Enter a numeric value\n";
my $num = <STDIN>;
chomp($num);
if ( $num !~ /[0-9])
{
print "Enter a numeric value only\n";
}
else
print "Numeric value entered is $num\n";


But this program accepts values like '99a, a99' etc..

Cheers,
Karthik

[KevinADC]

see you original thread.

Moderators: This one should be closed