Get all numbers : Digit « Regular Expression « Perl






  1. Perl
  2. Regular Expression
  3. Digit

Get all numbers

    

#!/usr/bin/perl

use warnings;

my $text = "3 A, 2 B, and 0 C";

$text =~ s/\b(\d+)\b/$1 > 0?$1 > 1?$1 > 2? "Several":"A pair of":"One":"No"/ge;

print $text, "\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.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