Re^3: regular expression to check if the textbox contains only special characters

print /^(?:[A-Z_]+,?)+(?<!,)$/ ? 'good' : 'bad';

Hi I tried your suggestion as below

while (<DATA>) {
if (/^(?:[A-Z_]+,?)+(?<!,)$/) {print "good";}
else {print "bad";}
print;
}
[download]

__DATA__
*
*,*
*.*
ABC
ABC*
*ABC
ABC_TO
ABC_TO,DEF,GHI_JKL,GHI_JK1_TO
[download]

Good string format are ABC,ABC_TO and ABC_TO,DEF,GHI_JKL,GHI_JK1_TO but somehow I am getting this as BAD ABC_TO,DEF,GHI_JKL,GHI_JK1_TO

Comment on Re^3: regular expression to check if the textbox contains only special characters Select or Download Code

Replies are listed 'Best First'.
Re^4: regular expression to check if the textbox contains only special characters by choroba (Cardinal) on Oct 18, 2016 at 10:09 UTC
The digit 1 doesn't belong between A and Z: `ABC_TO,DEF,GHI_JKL,GHI_JK1_TO ~` [download] ($q=q:Sq=~/;[c](.)(.)/;chr(-\|\|-\|5+lengthSq)`"S\|oS2"`map{chr \|+ord }map{substrSq`S_+\|`\|}3E\|-\|`7**2-3:)=~y+S\|`+$1,++print+eval$q,q,a, [download]	[reply] [d/l] [select]
Re^4: regular expression to check if the textbox contains only special characters by Anonymous Monk on Oct 18, 2016 at 10:15 UTC
Hi choroba Understood this and solved the situation for me. `print /^(?:[A-Z_]+,?)+(?<!,)$/ ? 'good' : 'bad';` should be modified as `print /^(?:[A-Z_0-9]+,?)+(?<!,)$/ ? 'good' : 'bad';` Lookahead and Lookbehind concepts is intresting. Thank you very much.	[reply] [d/l] [select]