perl isNumeric 루틴 샘플

##################################################################

    ## Sub Name: IsNumeric.

    ## Description: This sub validates the input to check to see if

    ##the input is a Numeric value

    ## Example: 100, 1,000, and 14.00 are valid inputs.

    ##################################################################

    sub IsNumeric {

    	my $InputString = shift;

    	if ($InputString !~ /^[0-9|.|,]*$/) {

    		return 0;

    	}

    	else {

    		return 1;	

    	}	

    }