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

I'm not sure whether the OP wants *.*,*;A to pass. I'd use

chomp;
print /[^A-Z_,]/ ? 'bad' : 'good'
[download]

Or, if the format is important, too:

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

i.e. at least one uppercase letter or underscore, followed by a comma, this repeating several times, and no trailing comma.

($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]

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

Replies are listed 'Best First'.
Re^3: regular expression to check if the textbox contains only special characters by Anonymous Monk on Oct 18, 2016 at 09:54 UTC
`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	[reply] [d/l] [select]
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]