Re: Perl will not match my RegEx pattern....

A quick check shows all strings match as you seem to expect. Can you be more specific about what you mean by "doesn't match on a single one"? As Bloodnok has asked, are you really, really sure about your data?

c:\@Work\Perl\monks>perl -wMstrict -le
"my @seatlocs = (qw(A1.23BC U2.60L R2.32 C1.3L AB3.45E D45.1A), 'Some 
+Bldg');
 ;;
 for my $loc (@seatlocs) {
   print qq{'$loc' },
         $loc =~ m{ \b [A-Z]{1} \d{1} \. \d+ [A-Z]* }xms
         ? 'Correct' : 'Invalid';
   }
"
'A1.23BC' Correct
'U2.60L' Correct
'R2.32' Correct
'C1.3L' Correct
'AB3.45E' Invalid
'D45.1A' Invalid
'Some Bldg' Invalid
[download]

BTW: [A-Z]{1} is the same as [A-Z] is the same as [[:upper:]] and \d{1} the same as \d

Comment on Re: Perl will not match my RegEx pattern.... Select or Download Code

Replies are listed 'Best First'.
Re^2: Perl will not match my RegEx pattern.... by FierceMoose (Initiate) on Mar 19, 2014 at 14:52 UTC
I suspect the data as well, but I'm not sure what can be done to clean it up with out altering the actual data. Chomp has had not change on operation either. Perhaps I need to convert it to a quoted word for RegEx to work? `my $acopy = qw($SeatLoc);` [download] I'm somewhere between novice & intermediate in my experience and not immune to the 'obvious' mistake. ;-)	[reply] [d/l]
Re^3: Perl will not match my RegEx pattern.... by choroba (Cardinal) on Mar 19, 2014 at 15:23 UTC
`qw` does not interpolate variables. This statement is equivalent to `my $acopy = '$SeatLoc';` [download] Note the single quotes. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l] [select]
Re^3: Perl will not match my RegEx pattern.... by AnomalousMonk (Archbishop) on Mar 19, 2014 at 18:22 UTC
Perhaps I need to convert it to a quoted word for RegEx to work? Blindly converting something that's already a string to a string is unlikely to help. You already know that the regex you provided works for the sample strings you provided. Find out what your data really looks like!	[reply]