As a sidenote...

On 02 Apr 2003 00:09:18 PST, Nicholas G. Thornton wrote:

>So I'm trying to set up a subroutine to test input types to make sure they're
>the right sort (numeric, etc) I figure regex is the way to go, but it doesn't
>seem to work.

>       } elsif ($test_type eq 'decimal' and not $input =~ m/^(\d|\.)*$/) { 
>               # doesn't test for multiple decimals

Perhaps you could look into the module Regexp::Common, on CPAN,
specificall the patterns $RE{num}{real} and $RE{num}{int}.

Otherwise, either lookahead or alternatives are the way to go, to check
that you have at least one digit and at mosty one digit. For example:

        /^(?=.*\d)(\d*\.?\d*)$/

-- 
        Bart.

Reply via email to