Re: I don't understand.

Well, your regexp won't properly identify:

1.5
-3
-2.89
.32
0.5
-.01
[download]

...as numbers. It will also fail to reject empty strings.

Dave

Comment on Re: I don't understand. Download Code

Replies are listed 'Best First'.
Re^2: I don't understand. by Anonymous Monk on Nov 05, 2008 at 16:07 UTC
Ok, here's a bit of enhancement: `foreach $abc ("asd","","0","123","-12","1.2","-1.2","12-","-a12","a1") {print "$abc:", is_a_num($abc) ? "Number" : "NaN", "\n";} sub is_a_num { return ($_[0] =~ /^(\+\|-)?([0-9]\|\.)+$/) \|\| 0 ; }` [download] Thierry	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: I don't understand.
by Anonymous Monk on Nov 05, 2008 at 16:07 UTC

foreach $abc ("asd","","0","123","-12","1.2","-1.2","12-","-a12","a1")
{print "$abc:", is_a_num($abc) ? "Number" : "NaN", "\n";}

sub is_a_num {
   return ($_[0] =~ /^(\+|-)?([0-9]|\.)+$/) || 0 ;
}
[download]

[reply]
[d/l]