[VPM] detecting non-integers

[Carl B. Constantine]

*On Mon May 05, 2003 at 04:47:33PM -0700, Malcolm Dew-Jones (yf110 at victoria.tc.ca) wrote:
> 
> 
> 
> On Mon, 5 May 2003, Carl B. Constantine wrote:
> 
> > Since perl doesn't have types as such, what is the best way to detect
> > this, just a regex like: =~/\d+(\.)*/ or is there an easier way?
> 
> A regex is the most typical way.  I would show some but I hate to do that
> without testing them cause it's so easy for something to not work quite as
> you expect.  Well may be just one, the simplist

Yes, regex works just fine. A private email from Draco Paladin quoted a
perlfaq4 entry that had what I needed, which is simply:

if ($xfrAmount =~ /^-?\d+\.?\d*$/ ) {
  print $cgi->p("Please enter the funds as a whole number in cents. \$1.00 = 100 cents.");
  print $cgi->end_html;
  exit 1;
}

Thanks everyone for your help....again! ;-)

-- 
Carl B. Constantine         University of Victoria
Programmer Analyst          http://www.csc.uvic.ca
UNIX System Administrator   Victoria, BC, Canada
cconstan at csc.uvic.ca        ELW A220, 721-8753