if ($text =~ /\D/) {print "It's not a number.";} : Digit « Regular Expression « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » Regular Expression » Digit 
if ($text =~ /\D/) {print "It's not a number.";}
    


$text = "Hello!";

if ($text =~ /\D/) {print "It's not a number.";}

   
    
    
    
  
Related examples in the same category
1.Determine if a string has a digit.
2.Check for no digit
3.Check for digit
4.if ($text =~ /(\d+)/) {print "Here's the number of apples: $1.\n";}
5.if ($text =~ /^[+-]\d+\.\d*$/) {print "It's a number.";}
6.if ($text =~ /^\d+$/) {print "It's a number.";}
7.A simple integer-validation program.
8.Get all numbers
9.Match the one or more alphanumerics.
10.Match numbers
11.Matching Any Letter or Number
12.Match one or zero alphanumerics followed by a single space character
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.