Match numbers : Digit « Regular Expression « Perl






  1. Perl
  2. Regular Expression
  3. Digit

Match numbers

    

#!/usr/bin/perl
use warnings;
use strict;

my $text = "One Two Three 456 Seven";
while ($text =~ /[0-9]+/g) {
    print " \$& = $& \n \$` = $` \n \$' = $' \n";
}








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/) {print "It's not a number.";}
6.if ($text =~ /^[+-]\d+\.\d*$/) {print "It's a number.";}
7.if ($text =~ /^\d+$/) {print "It's a number.";}
8.A simple integer-validation program.
9.Get all numbers
10.Match the one or more alphanumerics.
11.Matching Any Letter or Number
12.Match one or zero alphanumerics followed by a single space character