Re^3: Tweak for my Perl Regex that screens for digits only

That expression permits only:
Numbers
Ext or ext
The specified punctuation
anywhere in the string. It fails to match if anything else is included.

Update: My test case is as follows:

use strict;
use warnings;
my @strings;
$strings[0] = "44 (1234) 123398 Ext 123";
$strings[1] = "+44 (1234) 123398 Ext 123";
$strings[2] = "44 (1234) 123398 Ext 123 xxxxxxxxxxxxxxx";
$strings[3] ="416-967-1111 ext. 123 xxxxxxxxxxxxxxxxx";

my $counter=0;
for my $string (@strings)
{
        if ($string =~/^(?:Ext|\d|\)|\(|\.|\s|\+|\-)+$/i)
        {
                print "$counter good\n";
        }
        $counter++;
}
[download]

Which returns:

0 good
[download]

~~It fails to match with a leading +, which I haven't got to the bottom of yet, but rejects all the wrong strings.~~ (I'd missed out a vital |, which stopped the + matching - thanks to ysth for spotting it).

--------------------------------------------------------------

"If there is such a phenomenon as absolute evil, it consists in treating another human being as a thing."

John Brunner, "The Shockwave Rider".

Comment on Re^3: Tweak for my Perl Regex that screens for digits only Select or Download Code

Replies are listed 'Best First'.
Re^4: Tweak for my Perl Regex that screens for digits only by ysth (Canon) on Jan 26, 2006 at 11:33 UTC
`if ($string =~/^(?:Ext\|\d\|\)\|\(\|\.\|\s\|\+\-)+$/i)` [download] It fails to match with a leading +, which I haven't got to the bottom of yet, but rejects all the wrong strings. It only accepts the pair "+-", not individual +'s or -'s. Easier with a character class: `if ($string =~/^(?:Ext\|[-.+()\d\s])+$/i)` [download]	[reply] [d/l] [select]
Re^4: Tweak for my Perl Regex that screens for digits only by hackermike (Novice) on Jan 25, 2006 at 19:50 UTC
OK, I put your code in my script and when I enter: 416-967-1111 ext. 123 xxxxxxxxxxxxxx in the folrm field and submit the form The regex does not detect that there is all those x's after the numbers ext. and number sequence. If there is ANY text, anywhere in the field results, other than ext. or Ext. then I want the regex to generate an error message.	[reply]


We don't bite newbies here... much
	PerlMonks